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-REM C) 
IDENTIFICATION 
PRODUCT CODE: AC-F 627E-MC 
PRODUCT NAME: CKKUAEO 11/24/44 UBI MAP 
DATE CREATED: JANUARY, 1982 
MAINTAINER: DIAGNOSTIC ENGINEERING 
AUTHOR : DAN MILLEVILLE 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE wher DESCRIBED IN es DOCUMENT IS FURNISHED TO THE PURCHASER 
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
(WITH INCLUSION OF DIGITAL"S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR 
the OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 


COPYRIGHT (C) 1979, 1982 BY DIGITAL EQUIPMENT CORPORATION 
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HISTORY SECTION 


CKKUAAQ WAS RELEASED OCTOBER, 
CKKUABO WAS RELEASED OCTOBER, 
CKKUACO WAS RELEASED APRIL, 


CKKUADO WAS RELEASED OCTOBER, 


CKKUAEO WAS RELEASED JANUARY, 


SEQUENCE 


1979 > INITIAL RELEASE 

1980 > ADDITION OF UNIBUS MEMORY TEST 

1981 > TESTING OF 11/24 MAP, 11/24 WITH UNIBUS 
1981 MEMORY ONLY, & POWER MONITOR BIT CHECK. 


WAS ADDED TO STARTUP CODE. 

WHEN SELECTED, THE OPTIONAL CACHE TESTS 
NOW RUN CORRECTLY. 

THE LMA TEST (11/24 ONLY) WAS MODIFIED TO 
DO A MORE THOROUGH JOB OF CHECKING THE 
ADDRESS LINES. 


> 
> 
> 
> SETUP OF SOFTWARE/HARDWARE SWR ADDRESS 
> 
> 


1982 


ume re ree = ee ee ee ee 


a ee ee 
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1) 
2) 


3) 


4) 


5) 


6) 


7) 


8) 


9) 


TABLE OF CONTENTS 
ABSTRACT 
REQUIREMENTS 
EQUIPMENT 
STORAGE 
PRELIMINARY PROGRAMS 
LOADING PROCEDURE 
3.1 METHOD 
STARTING PROCEDURE 
1 STARTING ADDRESS 
2 PROGRAM AND OPERATOR ACTION 
-5 SPECIAL STARTING PROCEDURE 
OPERATING PROCEDURE 
1 OPERATIONAL dh SETTINGS 
2 SUB-ROUTINE ABSTRACTS 
5.3 RUNNING UNDER APT 
ERRORS 
1 ERROR HALTS AND DESCRIPTION 
.2 ERROR RECOVERY 
-5 SAMPLE ERROR MESSAGES 
RESTRICTIONS 


1 STARTING RESTRICTIONS 
7.2 OPERATING RESTRICTIONS 


MISCELLANEOUS 


1 EXECTUION TIME 
8.2 ADDRESS GENERATION IN THE PDP-11/44 


PROGRAM DESCRIPTION 


Mmrorg 
» @ 6 
win 


ee rrr oe ere ee eee eee ee ee oes. 2 e+ ee 


SEQUENCE 
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1. ABSTRACT 


THIS PROGRAM IS DESIGNED TO BE RUN ON oT PDP 11/24 OR 11/44 Da 
WHICH THE CPU, CACHE (IF APPLICABLE), MEMORY MANAGEMENT 
DIAGNOSTIC PROGRAM S_ HAVE. BEEN RUN. tHe. PROGRAM WILL DETECT ALL 
ERRORS THAT ORIGINATE WITH THE MAP BOX AND PROVIDE LOOPING 
CAPABILITIES SO THAT THE FIELD SERVICE ENGINEER CAN VERIFY 
THE FAILURES. THERE MAY BE SOME ae F SUCH AS THE CACHE 

CACHE MEMORY DATA PATH, WH 
INTERACTION BETWEEN MODULES PROHIBITS CLOSE ISOLATION, BUT 
THE FAILING FUNCTION WILL BE CALLED OUT SO THE FIELD SERVICE 
ENGINEER CAN COMPLETE THE ISOLATION PROCESS. 


IF THE PROGRAM CATCHES AN ERROR IN AN EARLY TEST AND IS ALLOWED 
TO CONTINUE RUNNING THROUGH THE LATER TESTS THE ERROR INDICATIONS 
FROM THOSE LATER TESTS MAY BE INVALID. THIS IS DUE TO THE STRUCTURE 
OF THE PROGRAM. WHICH ASSUMES THAT ALL AREAS TESTED PRIOR TO THE 
CURRENT TEST ARE” FUNCTIONING PROPERLY. 


THE ERROR TYPE OUTS WILL BE IN TABLE FORMAT, WITH A MESSAGE INDICATING 


THE CLASS OF ERROR, A HEADER IDENTIFYING EACH COLUMN AND A REPORT OF 
ALL PERTINENT DATA. WHEN THE TEST CAN PRODUCE MORE THAN ONE ERROR 
CONDITION, A S Y OF ERRORS WILL BE GIVEN AT THE END OF THAT TEST 
CONSISTING OF: THE LOGICAL ‘AND' AND OR’ OF THE DATA PREVIOUSLY 
REPORTED AND THE NUMBER OF ERRORS IN THIS TEST. (SEE SECTION 6.3 FOR 
EXAMPLE OF THE ERROR TYPEOUTS.) 


NONININININD 2 SS SS SO oO 
RUN VSSONSONnFEWNIOSSYRAR AU SS 
P 
mm 
qa 
_— 
wm 
—_ 
mn 
» 
oOo 
> 
“s 
> 
wv 
> 
—4 
= 
o 
> 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
, 
j 
; 
1 
] 
1 
: 
; 
: 
: 
: 
. 
. 
: 
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126 .. REQUIREMENTS 
128 2.1 EQUIPMENT 

130 THE BASIC PDP-11/24 OR 44 COMPUTER, INCLUDING THE CPU, CACHE 

131 (11/44 ONLY), MEMORY MANAGEMENT, AND AN LA=30 OR EQUIVALENT DEVICE 
132 FOR ERROR MESSAGES. 

134 2.2 STORAGE 

136 THIS PROGRAM WILL REQUIRE 8K TO LOAD BUT WILL UTILIZE ALL 

137 EXISTING CORE FOR A DUAL ADDRESSING TEST OF MEMORY 

138 FROM THE UNIBUS. 

140 2.3 PRELIMINARY PROGRAMS 

142 THE CPU, CACHE(IF APPLICABLE), AND MEMORY MANAGEMENT 

143 DIAGNOSTICS SHOULD BE RUN BEFORE THIS PROGRAM. THE MEMORY 

144 DIAGNOSTIC SHOULD AT LEAST MAKE A QUICK VERIFY OF THE AREA 

145 OF MEMORY THIS PROGRAM WILL LOAD AND RUN IN. 


mn ee ee ee ee 
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LOADING PROCEDURE 
METHOD. 
THIS PROGRAM CAN BE LOADED FROM ANY DEV 


SUPPORTED BY XXDP_ AND SHOULD BE LOADED 
PROCEDURE FOR THAT DEVICE. 





E THAT 
I 


Ic IS 
USING THE XXDP 


2 oe ceere ne ee ee mee —_ - 


SEQUENCE 


6 


"Save Raila a ee ee ee ma mm mm me ee —_—— 
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4. STARTING PROCEDURE 
4.1 STARTING ADDRESS 


PROGRAM STARTS AT ADDRESS 200 
4.2 PROGRAM AND/OR OPERATOR ACTION 


THE PROGRAM WILL IDENTIFY ITSELF. IF CPU IS AN 11/44, PROGRAM 

WILL PROCEED WITH TESTING. IF CPU IS AN 11 2h AND LOCATION 176 

CONTAINS ZERO (SUCH AS JUST AFTER LOADING) AM WILL PROMPT 

0 RE I F NONE IS REQ QUIRED, ENTER <CR> 

IF YOU DO. SO, PROGRAM WILL. DEPOSIT.A."'l’* IN LOCATION 176 (MEANINGLESS 
T S HE PROGRAM 


4.3 SPECIAL STARTING PROCEDURE 


IF IT APPEARS THAT THE a. IS CAUSING SOME TROUBLE AND 
vei STILL WANT TO RUN THIS PROGRAM, IT IS POSSIBLE TO RUN 
WITH THE CACHE DISABL iri SIMPLY LOAD THE CACHE CONTROL 
at oer (17777746) W THE DESIRED NUMBER. THEN LOAD 
THE PC (17777707) WITH. THE STARTING ADDRESS (200) AND 
PRESS ‘CONTINUE’. THE PROGRAM WILL NOW RUN NORMALLY. EXCEPT 
THAT CERTAIN TESTS WILL BE SKIPPED SINCE THE CACHE IS DISABLED. 
THIS FACT IS INDICATED IN THE ABSTRACT OF EACH TEST THAT 
CHECKS THE CACHE CONTROL REGISTER. 


DEFINITION OF THE BITS IN THE CACHE CONTROL REGISTER: 
BITOO =DISABLE TRAPS 


Oo Oo Co Co 09 CO SI SG SB SG SS SN NS PA AAAAAAAOOUMMMNNUYIVNN 


MIS R 
BIT09 | -UNCONDITIONAL CACHE BYPASS 


-———— 
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OPERATING PROCEDURE 
OPERATIONAL SWITCH SETTINGS 


SW15 = HALT ON ERROR 

SwW14 = LOOP ON TEST 

SwW13 = INHIBIT ERROR TYPEOUTS 
SW12 = INHIBIT TRACE TRAP 


SET WHEN RUNNING AN ares WITH NO MAIN MEMORY 
AND Sa MEMORY 


BELL ON 
Sw09 LOOP ON 
Sw08 0 


wn 
= 
—_ 
oS 
ee ee 
nan 
oon 
oO 
v 
wm 
4 
me 
2 
rs 
z 
A 
Ww 
Qo 
Vv 


; USED FOR 
MFG. QUICK VERIFY STATION AND CAN BE — 
BY APT SCRIPTING. THESE TESTS ASSUME T 
ALL MODULES EXCEPT UBI MODULE ARE KNOUN 6000. 
sw05 1= SELECT UNIBUS MEMORY TESTS 
SET WHEN A WINDOW EXISTS (SOME UBMAP JUMPERS CUT), AND 
UNIBUS MEMORY OCCUPIES THE ENTIRE WINDOW ADDRESS AREA. 


SUB-ROUTINE ABSTRACTS 


ALL SUBROUTINE ABSTRACTS APPEAR IN THE CODE BEFORE THEIR 
EXPANSION AND IN THE DOCUMENT THAT IMMEDIATELY FOLLOWS THIS. 
BELOW IS A LIST OF THE SUBROUTINE TITLES. 


MACRO LIBRARY SUBROUTINES (FOUND IN MOST PROGRAMS) (SOME IN THIS SOURCE) 


SCOPE HANDLER ine 
ERROR HANDLER TI 


ERROR MES SAGE T YPE OUT ROUTINE 
CONVERT ye VIRTUA eure: TO 22-BIT PHYSICAL ADDRESSES 
SAVE AND RESTORE RO-R TINES 

TYPE ROUTINE. 

BINARY TO OCTAL (ASCII) AND TYPE 

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

TRAP DECODER 


POWER DOWN AND UP ROUTINES 
DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 
END OF PASS ROUTINE 


SUBROUTINES UNIQUE TO THIS PROGRAM 


SUBROUTINE TO TURN OFF AND SAVE T-BIT 

SUBROUTINE TO at tA ie TO ITS PREVIOUS CONDITION 

SUBROUTINE TO CLEAR A F THE MAP REGISTERS 

SUBROUTINE TO EXTRACT HAP. ADDRESS FROM PAR CONTENT 

SUBROUTINE TO DETERMINE 11/24 WITH UNIBUS MEM ONLY a CHECK LMA*S IF SO 


TRAP AND ABORT HANDLER ROUTINES 
CPU TRAP HANDLER ROUTINE 


CACHE TRAPS AND ABORTS HANDLER ROUTINE 
MEMORY MANAGEMENT TRAPS AND ABORTS HANDLER ROUTINE 


- -- —— - ——— - - —— oe eee ee CC eee a Se -e—t—e 
. _-—-—- eee 
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| 
5.3 RUNNING UNDER APT 


THE EXECUTION TIMES PROVIDED IN THE APT SCRIPT THAT FOLLOWS 
ARE FOR EXECUTION WITH A 11/44 PROCESSOR, CACHE, 

16K CORE MEMORY, AND 300 BAUD. 

THE FOLLOWING I$ A PROGRAM LOAD FILE USED BY APT: 


1. E TABLE ‘A' IS USED FOR APT DUMP MODE. 
A. IN ADDITION TO NORMAL CPU DIAGNOSTIC TESTS, THIS 
TABLE WILL SELECT THE OPTIONAL CACHE TESTS, ($SWREG=100). 


2. E TABLE "B' IS USED FOR APT QV MODE WHILE oe oo . 
MANUFACTURING QV STATION. IT ACCOMPLISHES WHAT ETAB 
"A' DOES BUT ADDITIONALLY SUPRESSES TYPEOUTS. (SENVM=240) 


MMMM PeNPPeN Neen 
DISA AAAI > 
WDNAULSWN CO OONOWN 


260 3. ETABLE 'C* IS USED FOR APT QV OR RUNTIME MODES WHILE 

261 RUNNING ON SYSTEMS OTHER THAN MFG. QV STATIONS. THIS 

$06 TABLE DESELECTS THE OPTIONAL CACHE TESTS. 

264 4. ETABLE 'D* IS USED BY MANUFACTURING TO RUN AN 11/24 UNDER 
265 APT WITH UNI3US MEMORY AND NO MAIN MEMORY, AND BECAUSE OF 
$08 NO CACHE IN AN i724, DESELECTS THE OPTIONAL CACHE TESTS. 
268 1ST PASS LONGEST ADDITIONAL 

269 R''N TIME TEST TIME RUN TIME 

270 10 5 

271 

A eo E TABLES = —=—s_ cw wee 

273 

274 A B C D 

275 E~MODE/S-MODE 000/000 240/001 240/001 240/001 
$78 (SENVM/SENV) 

278 SWITCH REGISTER 1 000100 000100 000000 004000 
a (S$SWREG) 

281 SWITCH REGISTER 2 000000 000000 000000 

282 CPU TYPE/OPTIONS 00/0000 00/0000 00/0000 00/0000 
283 MAP C 00 00/0000 000/0000 /0000 
284 ME MAP CODE 2 000/0000 000/0000 000/0000 000/0000 
285 MEMORY MAP CODE 3 000/0000 /0000 

286 Y MAP CODE 000/0000 0000 000/0000 000/0000 
287 BUS PRIORITY/INTERRUPT 1 0 0 

288 BUS PRIORITY/INTERRUPT 2 0000 0000 0000 0000 
289 BASE ADDR co 000000 000 000000 000000 
290 VICE ODE 000000 000000 000000 000000 
291 CTLR. SPECIFIC D 1 000000 000000 000000 

292 CTLR. SPECIFIC D2 oo oNS 000000 000000 

293 DEVICE DESCRIPTOR WORD 0 17 177777 177777 177777 
294 DEVICE DESCRIPTOR WORD 1 177777 177777 177777 177777 
344 DEVICE DESCRIPTOR WORD 2 sag 000000 000000 000000 
297 DEVICE DESCRIPTOR WORD 15 000000 000000 000000 000000 


me rte oe a ee ™—— 


— oes i A A A 
nm a a ee ——— + - 
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298 6. ERRORS 

300 ‘3 ERROR HALTS AND DESCRIPTION 

302 WHEN AN ERROR IS DETECTED AN ‘ERROR’ (EMT) 

303 INSTRUCTION IS EXECUTED AND THE ‘ERROR HANDLER ROUTINE' 

304 CHECKS THE SWITCH REGISTER FOR MODE SELECTED. 

305 THE PROGRAM WILL 

306 HALT ON ERROR IF SW15=1 

307 INHIBIT ERROR TYPE OUT IF Sy W13=1 

308 RING BELL ON ERROR IF SW10=1 

309 LOOP ON ERROR IF SWw9=1 

31 6.2 ERROR RECOVERY 

313 IF SwO9=1, THE PROGRAM WILL LOOP BACK TO 

314 THE POINT WHERE THE INSTRUCTION THAT CAUSED THE ERROR WAS 

315 EXECUTED, WITHOUT ALLOWING ANY OF THE CONDITIONS TO CHANGE. 

316 THIS WiLL PROVIDE THE TIGHTEST POSSIBLE SCOPE LOOP. 

317 IF SwO9=0 H ERROR WILL BE REPORTED AND 

318 tOGeED AND, wt: THE END OF EACH TEST, A SUMMARY OF ALL ERRORS 

319 OCCURRING IN THAT TEST WILL BE PROVIDED. THE SUMMARY 

320 CONSISTS OF THE LOGICAL AND AND OR OF THE ADDRESS AND/OR 

321 DATA THAT WAS WRONG. 

323 IF THE POWER MONITOR BIT ERROR IS CALLED, YOU MUST CORRECT THE POWER 

324 SUPPLY OR CPU ERROR REGISTER PROBLEM BEFORE YOU CAN RELY ON THE 

325 RESULTS OF THIS DIAGNOSTIC. THE ERROR CAN BE CALLED AT 1 OF 2 

326 PLACES - 1) IN THE SCOPE ROUTINE EXECUTED AT THE LE GINNING OF EACH 

327 TEST, AND 2) IN AN ERROR CALL IN CASE BIT BECOMES SET AFTER THE SCOPE. 

328 IF THE MBIT IS CAUGHT IN THE ERROR ROUTINE, *TWO* ERRORS WILL CALL - 

329 1) POWER MONITOR BIT ERROR WILL CALL FIRST TO ALERT YOU TO THE 

330 POSSIBILITY THE PROBLEM COULD BE CAUSED BY THE OUT-OF-SPEC POWER 

331 SUPPLY, AND THEN THE ERROR THAT WAS TO CALL. 

333 6.3 SAMPLE ERROR TYPE OUTS 

334 SEE SERRTB:'’ FOR SAMPLE ERROR TYPEOUTS. 


10 
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| 
| 
6.3.1 MULTIPLE TYPE ERRORS: AN EXAMPLE: 
| THE FOLLOWING REGISTERS TIMED OUT WHEN REFERENCED 
REG. .ADR TESTNO ERRORPC 
0210 000001 012966 
170 12 000001 015 


WWWNWa 
WANNWS 


ESFERESSES 
WO 00 NAUNE WOOD WOU 


UMMARY OF MAP REGISTERS THAT TIMED OUT ON READ 
REGADRS REGADRS 

“OR"’ ""AND'’ #ERRORS TESTNO ERRORPC 

170376 170210 32 000001 010530 


WNWA 
VViwnV) 


eee 
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‘ RESTRICTIONS 
7.1 STARTING RESTRICTIONS 
NONE 
7.2 OPERATING RESTRICTIONS 
NONE 


ee ee eee ae - —_— 
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MISCELLANEOUS 
EXECUTION TIME 
THE RUN TIME FOR ANY PASS IS APPROXIMATELY 3 SECONDS. 
ADDRESS GENERATION IN THE PDP=11/44 
THE A IS AN EXAMPLE OF HOW A MEMORY ADDRESS 
IS GENERATED BY THE UNIBUS MAP. THIS ASSUMES THAT 
THE ADDRESS ORIGINATES IN THE CPU BUT THE PROCESS CAN 
APPLY TO ANY UNIBUS ADDRESS, STARTING AT LINE C2. 
VIRTUAL ADDRESS 15 14 13 12 11 10 09 08 07 06 05 04 03 O02 01 00 
. P.A.R. PAGE NUMBER (0-7) 15 14 13 
. OFFSET (FROM VIRTUAL ADDRESS) ’ 12 11 10 09 08 07 06 05 04 03 02 01 00 
P.A.R.CPAGE NO.J + 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 





PHYS ADDRS (A2+B) 21 20 19 18 17 16 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 


. 17XXXXXX=> U.B.ADR. 21 20 19 18 


MAPPING REG.NO. (0-36) 17 16 15 14 13 


. OFFSET 12 11 10 09 08 07 06 05 04 03 02 01 00 


MAP REG.CNO.J + 21 20 19 18 17 16 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 


PHYS ADDR (C3+D) 21 20 19 18 17 16 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 





reer te OF LINES: 
A: VIRTUAL a (16 BITS) 
Al: UPPER 3 BITS OF VIRTUAL ADDRESS, USED TO 
SELECT A PAGE ADDRESS REGISTER (PAR) 
A2: LOWER 13 BITS OF VIRTUAL ADDRESS, ADDED TO 
SELECTED PAR 


B: PAGE ADDRESS REGISTER (16 BITS), IN ADDITION PROCESS THIS GETS 
LEFT SHIFTED 6 BITS BEFORE ADDITION TO A2 


C: PHYSICAL ert CREATED BY MEMORY MANAGEMENT, (22 BITS) 
C1: IF UPPER 4 BITS ARE ALL ONES THEN BITS <17:00> GO OUT ON UNIBUS 
C2: IF MAP RELOCATION IS ENABLED THEN BITS <17:15> SELECT ONE 
OF THE 36 (OCTAL) MAP REGISTERS. 
C3: LOWER 13 BITS OF UNIBUS ADDRESS, ADDED TO SELECTED MAP REGISTER 


D: MAP REGISTER (22 BITS), ADDED TO BITS <12:00> OF UNIBUS ADDRESS 
E: PHYSICAL ADDRESS GENERATED BY UNIBUS MAP AND SENT TO THE CACHE. 


ne 
aK 


-— 
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rey ?. PROGRAM DESCRIPTION 
419 THE ASSEMBLED LISTING, CKKUAE.SEQ, HAS A PARAGRAPH DESCRIBING 
420 EACH OF THE TESTS. THE PARAGRAPH WILL INDICATE IF THE TEST IS 
421 RUN CONDITIONALLY ON THE STATUS ON THE CACHE CONTROL REGISTER.@ 
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TITLE, CKRUAEO 11/24/44 UB MAP 
;*COPYRIGHT (C) J 

: *DIGITAL EQUIPMENT “CORP. 

; #MAYNARD . 


: #PROGRAM BY DAN P. MILLEVILLE 


S eTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
; *PACKAGE (MAINDEC=11=DZQAC-C5), JAN, 1981. 


* SBTTL OPERATIONAL SWITCH SETTINGS 


* 
J  o 


SWITCH USE 


HALT ON ERROR 

LOOP ON TEST 

eet 7 coors TYPEOUTS 
RACE TRAP 


and aed aad aad and omc 
MANDO O WE 

@w 

m 

rT 

a 

m 


<4:0> 
Te TYPEOUTS 
UNIBUS TEST 


mm 
wa 
— 
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001100 


177546 
000011 
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-SBTTL BASIC DEFINITIONS 


jtINITIAL ADDRESS OF THE 
STACK= 1100 


STACK 
SUPSTK= STACK=200 
USESTK= STACK~300 


PS= 
STKLMT= 177774 


LKS= 46 
;sMISCELLANEOUS DEF INITI 


1 
LF= 12 “CODE L 
CR= 15 ; s CODE CARRIAGE RETURN 
CRLF= 200 
*GENERAL PURPOSE REGISTER DEF INI TIONS 
Ro= 40 33 REGISTER 
Ri= 41 > GENERAL REGISTER 
R2= %2 = :GENERAL REGISTER 
R3= 13 * :GENERAL REGISTER 
R4= 4 = :GENERAL REGISTER 
R5= 15 ;;GENERAL REGISTER 
R6= 16 “GENERAL REGISTER 
R7= 47 : GENERAL REGISTER 
R10=RO ; 
R11=R1 ° 
R12=R : 
R13=R : 
R1G=R4 ; 
R15=R5 ; 
SP= 16 >: STACK POINTER 
KSP=SP ; 
SSP=SP 
USP=SP 
pc= 47 PROGRAM COUNTER 
- *PRIORITY LEVEL ser nan ridee 
PRO= sO > :PRIORITY LEVEL 0 
PRi= = :PRIORITY LEVEL 1 
PR2= 100 * PRIORITY LEVEL é 
PR3= 140 >:PRIORITY LEVEL 
PR4= 200 > :PRIORITY LEVEL 4 
PR5= 40 : :PRIORITY LEVEL 5 
PR6= 00 ::PRIORITY LEVEL 6 
PR7= 340 PRIORITY LEVEL 7 
«SWITCH REGISTER'’ SWITCH DEFINITIONS 
w15= 100000 
SW14= 40000 
wWi3= 20000 
SW12= 10000 
SWi1= 4000 
Sw10= 2000 
SwO9= 1000 


STACK POINTER *** 1100 «a 
: FIRST ADDRESS OF THE STACK 


KERNEL STACK 
:3 SUPERVISOR STACK 
; USER STACK 


; : PROCESSOR STATUS WORD 
*:STACK LIMIT REGISTER 


;;PROGRAM INTERRUPT REQUEST REGISTER 
REGISTER 


; sHARDWARE SWITCH 
33 WARE D 


ISPLAY REGISTER 
ii LINE CLOCK (KW11-L) STATUS REGISTER 
;;CODE FOR ern. TAB 
LINE FEED 


FOR oe RETURN-LINE FEED 


SEQUENCE 


- ee eee — mn a ee ee eee ee eS — - = 
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BASIC DEFINITIONS 


| 000400 sw08= 400 
| 000200 SwO7= 200 
| 000100 sw06= 100 
| 00040 swOS5= 40 
000020 Sw04= 20 
| 000010 SwO3= 10 
000004 SwO2= 4 
2 SWOl= 2 
000001 swo0= 1 
001000 SW9=SWO09 : 
00 SW7=SW07 : 
000100 SW6=SW06 : 
0 Sw5=SwO : 
000020 SW4=SW04 : 
000010 SW3=SWO ; 
00004 SW2=SwO2 : 
000002 SW1=SwW01 
000001 SwO=SWwO0 ; 
:*DATA BIT DEFINITIONS (BITOO TO BIT15) 
100000 BIT15= 100000 
040000 BIT14= 40000 
020000 BIT13= 20000 
010000 BITiz= 10000 
004000 BIT11= 4000 
002000 BIT10= 2000 
001000 BITO09= 1000 
0004 BITO8= 400 
000200 BITO7= 200 
000100 BIT06= 100 
000040 BIT05= 40 
000020 BIT04= 20 
000010 BITO3= 10 
000004 BITO2= 4 
000002 BITO1= 2 
000001 BITOO= 1 
001000 BIT9=B1TO9 : 
BIT8=BITO8 : 
000200 BIT7=B1T07 ; 
000100 BIT6=BIT ; 
000040 B1T5=BITO ; 
000020 BIT4=BIT04 ; 
000010 BIT3=BITO3 : 
000004 BIT2=BITO2 : 
000002 B1T1=B1T01 ; 
000001 =BIT : 


BITO=B1T00 
;*BASIC "'CPU' TRAP VECTOR ADDRESSES 


000004 ERRVEC= 4 :T AND OTHER ERRORS 
000010 RESVEC= 10 : 7RESERVED AND ILLEGAL INSTRUCTIONS 
000014 TBITVEC=14 :3.'T"" BIT 
000014 TRIVEC= 14 TRACE TRAP 
000014 BPTVEC= 14 : BREAKPOINT TRAP (BPT) 
000020 IOTVEC= 20 S:INPUT/OUTPUT TRAP (IOT) **SCOPE** 
000024 PURVEC= 24 POWER FAIL 
000030 EMTVEC= 30 : EMULATOR TRAP (EMT) **ERROR** 
000034 TRAPVEC=34 TRA 

TKVEC= 60 tETTY KEYBOARD VECTOR 
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/44 UBI MAP SEQUENCE 
TIONS 
000064 TPVEC= 64 :: TTY PRINTER VECTOR 
000100 LKVEC= 100 “LINE CLOCK (KW11-L) VECTER 
000114 CACHVEC=114 *:CACHE ERROR INTERRUPT VECTO 
000240 PIRQVEC=240 ; ;PROGRAM INTERRUPT REQUEST VECTOR 
000250 VEC= 250 “MEMORY MANAGEMENT VECTOR 
.SBTTL CACHE "DEFINITIONS 
177740 LOADRS = 177740 ::LOWER 16 BITS OF ADDRESS THAT CAUSED ERROR 
177742 HIADRS = 177742 1 OBER SIX BITS OF ADDRESS THAT CAUSED ERROR 
177744 MEMERR = 177744 *:CACHE ERROR REGISTER 
177746 CONTRL = 177746 ; i MEMORY CONTROL RE 
177750 MAINT = 177750 ; MEMORY MAINTENENCE REGISTER 
177752 HITMIS = 177752 HIT MISS REGISTER '"’ IMPLIES HIT IN CACHE 
.SBTTL CPU REGISTER DEF iNITIONS 
177760 SIZELO = 177760 sMEMORY SIZE REGISTER NUMBER TO PUT INTO A PAR 
«ITO GET TO THE LAST 32 WORDS OF 
177762 SIZEHI = 177762 ::HIGH SIZE REGISTER, RESERVED FOR FUTURE USE 
=: CURRENTLY ALL ZER ! 
177764 SYSTID = 177764 >: SYSTEM ID RE 
177766 CPUERR = 177766 77CPU ERR REGISTER HOLDS CONDITION THAT CAUSED 
‘THE TRAP TO ERRVEC (000004) 
TL MEMORY MANAGEMENT DEFINIT 


. SBT EF INITIONS 
— STATUS REGISTER ADDRESSES 


177572 775 
177574 MMR1= 177574 
177576 MMR2= 177576 
172516 MMR3= 172516 
177572 SRO=MMRO : 
177574 SR1=MMR1 : 
177576 SR2=MMR : 
172516 SR3=MMR 
:*USER "'I'’ PAGE DESCRIPTOR REGISTERS 
177600 UIPDRO= 177600 
177602 UIPDR1= 177602 
177604 UIPDR2= 177604 
177606 UIPDR3= 177606 
177610 UIPDR4= 177610 
177612 UIPDR5= 177612 
177614 UIPDR6= 177614 
177616 UIPDR7= 
USER "'D'’ PAGE DESCRIPTOR REGISTORS 

177620 RO= 
177622 UDPDR1= 177622 
177624 UDPDR2= 177624 
177626 DR3= 177626 
177630 UDPDR4= 177630 
177632 UDPDR5= 177632 

7634 UDPDR6= 177634 
177636 UDPDR7= 177636 

-*USER "'I'’ PAGE ADDRESS REGISTERS 

177640 UIPARO= 177640 
177642 UIPAR1= 177642 
177644 UIPAR2= 177644 
177646 UIPAR3= 177646 
177650 UIPAR4= 177650 
177652 UIPARS= 177652 
177654 UIPARG= 177654 
177656 UIPAR7= 177656 
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"PAGE ADDRESS REGISTERS 
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AGE ADDRESS REGISTERS 


AGE ADDRESS REGISTERS 


REGISTER DEFINITIONS 
OF THE MAP REGISTERS ARE LABELED ‘MAPLXX’ 
OF THE MAP REGISTERS ARE LABELED *MAPHXX" 


SEQUENCE 
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1492 
000000 


000174 
000174 000000 
000176 000000 


000200 000137 010000 
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.SBTTL a CATCHER 

;*ALL UNUSED LOCATIONS FROM te ~- 776 eg he A _'',+2,HALT"’ 
:*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPT 
*LOCATION, 9 CONTAINS Q TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: .WORD Q ;;SOFTWARE DISPLAY REGISTER 
SWREG: WORD 0 ;; SOFTWARE SWITCH REGISTER 
-SBTTL STARTING ADDRESS(ES) 


TART ;;JUMP TO STARTING ADDRESS OF PROGRAM 
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CKKUAEO 11/24/44 UBI MAP MACRO M1113. 11-JAN-82 11:27 PAGE 19 SEQUENCE 
ACT11 HOOKS 
1494 .SBTTL ACT11 HOOKS 
SAAR EEE ERE EERE EERE REE EEE 
“HOOKS REQUIRED BY ACT11 
000204 SSVPC=. ;SAVE PC 
000046 022024 SENDAD ::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
000052 000000 “WORD 0 ::2)SET LOC.52 TO ZERO 
000204 =$SVPC *: RESTORE PC 
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COMMON TAGS 


1496 .SBTTL COMMON TAGS 


TERCERA ASASELASEAASEAEEEARARAS ERE RRR RR RR RRR RRR RRR RS RRR RRR RRR R RSS SS 


**THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIUNS 
**USED IN THE PROGRAM. 


001100 -=1100 

001100 SCMTAG: ae T OF TAG 
;$PASS: .WORD 0 3;CONTAINS PASS COUNT ; DPMO001 
001100 000 TST BYTE Q ;;CONTAINS THE TEST NUMBER 
001101 000 SERFLG: .BYTE 0 ;;CONTAINS ERROR FLAG 
001102 000000 SICNT: .WORD 0 :; CONTAINS SUBTEST ITERATION COUNT 
001104 000000 $LPADR: .WORD 0 ;:CONTAINS SCOPE LOOP ADDRESS 
001106 000000 SLPERR: .WORD 0 ;;CONTAINS SCOPE RE 
001110 000000 SERTTL: .WORD 0 ;;CONTAINS TOTAL ERRORS DETECTED 
001112 000 ITEMB: .BYTE 0 ;;CONTAINS ITEM CONT 
001113 001 ERMAX: .BYTE 1 ;;CONTAINS MAX. ERRORS PER TEST 
001114 000000 SERRPC: .WORD 0 ;;CONTAINS PC OF LAST ERROR INSTRUCTION 
001116 000000 $GDADR: .WORD 0 ;;CONTAINS ADDRESS OF *GOOD’ DATA 
001120 000000 DADR: .WORD 0 CONTAINS ADDRESS OF ‘BAD* DATA 
001122 000000 SGDDAT: .WORD 0 ;;CONTAINS ° * DATA 
001124 000000 SBDDAT: .WORD 0 ;:CONTAINS ‘BAD’ DATA 
001126 000000 -WORD 0 ; sRESERVED--NOT TO BE USED 
001130 000000 -WORD 0 
001132 000 SAUTOB: .BYTE 0 ; sAUTOMATIC MODE INDICATOR 
001133 000 SINTAG: .BYTE 0 32 INTERRUPT MODE INDICATOR 
001134 00 -WORD 0 
001136 177570 ; . WORD WR ;;ADDRESS OF SWITCH REGISTER 
001140 177570 DISPLAY: .WORD DDISP ; ADDRESS OF DISPLAY REGISTER 
001142 177560 $TKS: 177560 :sTTY KBD STATUS 
001144 177562 $TKB: 177562 :;TTY KBD BUFFER 
001146 7564 $TPS: 177564 7zTTY PRINTER STATUS REG. ADDRESS 
001150 177566 STPB: 177566 ::TTY PRINTER BUFFER REG. ADDRESS 
001152 000 Li: .BYTE 0 :;CONTAI CHARACTER FOR FILLS 
001153 002 $FILLS: .BYTE 2 7 ;CONTAINS # OF FILLER CHARACTERS REQUIRED 
001154 012 SFILLC: .BYTE 12 ss INSERT FILL CHARS. AFTER A “LINE FEED" 
001155 000 STPFLG: .BYTE 0 32° "TERMINAL AVAILABLE’’ FLAG (8IT<07>=0=YES) 
001156 000000 E -WORD 0 7: CONTAINS THE ADDRESS FROM 
;;WHICH (S$REGO) WAS OBTAINED 

000006 «REPT $CM3 
001160 000000 SREGO: .WORD 0 ;: CONTAINS ((S$REGAD)+0) 
001162 000000 $REGi: .WORD 0 7; CONTAINS ((S$REGAD) +2) 
001164 000000 $REG2: .WORD 0 :; CONTAINS (($REGAD)+4) 
001166 000000 $REGS: .WORD 0 >; CONTAINS (($REGAD) +6) 
001170 000000 EG4: .WORD 0 CONTAINS (($REGAD) +10) 
001172 000000 $REG5: .WORD 0 CONTAINS ((S$REGAD) +12) 

000007 REPT 7 
001174 000000 STMPO: .WORD 0 ;;USER DEFINED 
001176 000000 STMP1: .WORD 0 7;USER DEFINED 
001200 000000 STMP2: .WORD 0 ;;USER DEFINED 
001202 000000 STMP5: .WORD 0 7 ;USER DEFINED 
001204 000000 STMP4: .WORD 0 ;;USER DEFINED 
001206 000000 STMP5: .WORD 0 ;;USER DEFINED 
001210 000000 TMP6: .WORD 0 ;;USER DEFINED 
001212 000000 STIMES: 0 ;7MAX. NUMBER OF ITERATIONS 
001214 000000 SESCAPE : 0 ; ESCAPE ON ERROR ADDRESS 
001216 207 377 377 $BELL: .ASCIZ <207><377><377> ;;CODE FOR BELL 
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001222 077 $QUES: .ASCII /?/ + QUESTION MARK 
001223 015 S$CRLF: .ASCII <15> is CARRIAGE RE TURN 
001224 012 000 SLF: ASCIZ <12> —E FEED 
PTTTIITUITILI TILT Li tit t iti tiiiiiiiiiitisi iii 
001226 000000 BADRSL: .WORD 0 HOLDS THE LOWER 16 BITS OF A 22 BIT ADDRESS 
i GENERATED FOR TYPE OUT. 
001230 000000 PADRSH: .WORD 0 sHOLDS THE UPP ER a: BITS OF A 22 BIT ADDRESS 
;GEN ERATED FOR TYPE OUT. 
001232 000000 000077 ADRAND: .WORD 0,77 ‘LOGICAL AND OF FAILING ADDRESSES 
001236 000 000077 ADDROR: .WORD 0,77 “LOGICAL OR OF FAILING ADDRESSES 
001242 000000 000077 DATAND: .WORD 0,77 “LOGICAL AND OF BAD DATA 
001246 000077 DATAOR: .WORD 0,77 sLOGICAL OR OF BAD DATA 
001252 000000 PATAND: .WORD 0 *LOGICAL AND OF PATTERN LOADED 
001254 000000 PATTOR: .WORD 0 LOGICAL OR OF PATTERN LOADED 
001256 000000 LOWEST: .WORD 0 ‘HOLDS NUMBER TO PUT IN PAR TO CAUSE THE 
*LOWEST USABLE MAP REG TER TO RESPOND 
001260 000000 HIGEST: .WORD 0 “HOLDS NUMBER TO PUT IN PAR TO CAUSE THE 
; HIGHEST USABLE MAP REGISTER TO RESPOND 
001262 000000 UBMLOW: .WORD 0 LDS NUMBER TO PUT IN PAR TO SIGNAL 1ST 
"ADDRESS OF UNIBUS MEMORY 
001264 000000 UBMHI: .WORD 0 LDS NUMBER TO PUT IN PAR To SIGNAL LAST 
‘BLOCK OF 4K OF UNIBUS 
1266 000000 MMRLOW: .WORD 0 “HOLDS LOWEST MAP REGISTER NUMBER FROM ‘LOWEST: 
001270 000000 MMRHI: .WORD 0 -HOLDS HIGHEST MAP REGISTER NUMBER FROM *HIGEST: ‘ 
001272 000000 UBRLOW: .WORD 0 *HOLDS LOWEST MAP REGISTER NUMBER FROM "UBMLOW:' 
001274 000000 UBRHI: .WORD 0 HOLDS T MAP REGISTER NUMBER FROM ‘UBMHI:° 
001276 000000 BUPWIN: .WORD 0 :HOLDS LOWEST USEABLE PAR OF UPPER 
1300 000000 LREGL: .WORD 0 HOLDS I A OF LOW 16 BITS OF 
THE L — MAP ISTER 
001302 000000 LREGU: .WORD 0 HOLDS AGE ADDR OF HIGH 6 BITS OF 
*OF THE LOWEST USABLE MAP ISTER 
001304 000000 LMAH: .WORD 0 *LOCATION TO HOLD LMA HIGH REGISTER CONTENTS 
1306 000000 LMAL: .WORD 0 LOCATION TO HOLD LMA LOW REGISTER CONTENTS 
001310 000000 UBM24L: .WORD 0 :LOCATION USED TO HOLD LMA LOW EXPECTED VALUE 
001312 000000 UBM24U: .WORD 0 : ION USED TO HOLD LMA HIGH EXPECTED VALUE 
001314 000000 UBM24P:- .WORD 0 *LOCATION USED TO HOLD LMALOW PRELOAD VALUE 
001316 000000 NUMOFK: .WORD 0 *LOCATION TO HOLD NUMBER OF K OF UB MEMORY 
001320 000000 ERRCNT: .WORD 0 “MULTIPLE ERROR ERROR COUNTER 
001322 000000 CNTR: .WORD 0 SAUXILIAR Y COUNTER 
001324 000000 FLAG: .WORD 0O sFLAG TO INDICATE TO LAST PROGRAM PASS N 
001326 000000 CPUEXP: .WORD 0 HOLDS THE EXPECTED CPU ERROR CODE 
1330 000000 PCPUER: .WORD 0 HOLDS RECEIVED CPU ERROR CONDITION 
001332 000000 PPARER: .WORD 0 HOLDS RECEIVED PARITY ERROR CONDITION 
1334 000000 PCONTR: .WORD 0 HOLDS CONTENTS OF CONTROL REGISTER 
001336 000000 PMAINT: .WORD 0 : IN TENENCE REGISTER 
001340 000000 BADPC: .WORD 0 : T CAUSED TRAP 
001342 000000 OLDPC: .WORD 0 HOLD 
001344 000000 OLDPS: .WORD 0 
001346 000000 OLDPSW: .WORD 0 
001350 000000 PMMRO: .WORD 0 
001352 000000 PMMR1: .WORD 0 
001354 000000 PMMR2: .WORD 0 
001356 000000 RSIZE: -WORD 0 ‘WILL HOLD P.A.R. DA T 
1360 000000 RETR WORD 0 “RETRY FLAG IN CASE OF PARITY S 
001362 000000 NXTTST: .WORD 0 : LOCATION TO HOLD ESCAPE ADDRESS ON 
001364 000200 DATA: .WORD 200 “PATTERN TO BE USED TO LOAD INTO MEMORY 
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024160 
ate 


024317 
030207 


032362 
033641 
024425 
030306 
032376 
033646 
024505 
030403 
032412 
033653 
024600 
030540 


032430 
033661 
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SEQUENCE 26 


.SBTTL ERROR POINTER TABLE 


:*THIS TABLE CONTAINS THE INFORMATION 4° — Ag Rig CAN OCCUR. 
:*THE INFORMATION IS OBTAINED BY USING THE | OUND IN 
: *LOCATION sachets | tS Me aw INDICATES WHICH ITEM iN. THE TABLE IS PERTINENT. 


: *NOTE1: 


: *NOTE2: 


sITEM 2 


: ITEM 3 


sITEM 4 


s ITEM 5 


; ITEM 6 


0 THE ONLY PERTINENT DATA _IS ( 


SERRPC). 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


Fis ah TO THE +o MESSAGE 
POINTS TO THE DATA HEADER 

: SPOINTS TO THE DATA 

;:POINTS TO THE DATA FORMAT 


;NOT THE CORRECT CPU TRAP wig THROUGH ERRVEC (#004) 
;RECEIVD EXPECTD TESTNO PC AT ABORT 
;PCPUER, he he ,STESTN,BADPC ,0 


;UNEXPECTED CPU TRAP THROUGH ERRVEC (#004) 
;RECEIVD TESTNO PC AT ABORT 
;PCPUER, —— -BADPC ,0 


Ps * o 


Y MANAGEMENT TRAP, MEMORY MANAGEMENT STATUS REGISTERS 
:STA TUS AUTOI/D VIRTADA 
;REGISTR REGISTR REGISTR TESTNO PC AT ABORT 
0 1,PMMR2 , STESTN,BADPC .0 


; SUMMARY OF MAP REGISTERS THAT TIMED OUT GN READ 
REGADRS 


+ REGADRS 
**or*' *“AND** ERRORS TESTNO ERR PC 
s ADDAGR. ADRAND 


;SUMMARY OF DUAL ADDRESSING ERRORS ON LOADING MAP REGISTERS 
;REGLOAD REGLOAD = REGDUAL-REGDUAL 

‘OR AND'' __#ERRORS TESTNO 
; ADDROR , ADRAND 0, DATAOR, ,DATAND ,ERRCNT ,STESTN,O 


} Bs Oi Be Oy Ms 


ERRCNT ,STESTN, SERRPC 0 


;SUMMARY OF BIT PATTERN FAILURES IN LOWER 16 BITS OF MAP REGISTERS 
;MAPREG MAPREG EXPECTD EXPECTD RECEIVD RECEIVD 
“AND '* "OR" “AND'* = *‘OR"® #ERRORS TESTNO 


$ ADDROR. ADRAND ,PATTOR, oe -DATAOR ,DATAND ,ERRCNT, STESIN, 0 


—————— ae 
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1536 
1537 001446 
1538 001450 
1539 
1540 001452 
1541 001454 
1542 
1543 
1544 001456 
1545 
1546 001460 
1547 001462 
1548 001464 
1549 
1550 
1551 001466 
1552 001470 
1553 
1554 001472 
1555 001474 
1556 
1557 
1558 001476 
1559 001500 
1560 001502 
1561 001504 
1562 
1563 
1564 001506 
1565 
1566 
1567 001510 
1568 001512 
1569 001514 
1570 
1571 
1572 001516 
1573 001520 
1574 
1575 001522 
1576 001524 
1577 
1578 
1579 001526 
1580 001550 
1581 
1582 001532 
1583 001534 
1584 
1585 
LF 001536 
1587 001540 
1588 
1589 001542 
1590 001544 


024702 
030540 


032430 
033661 
025003 
030727 


032452 
033641 


025155 
030754 
032462 
033671 
025247 


030727 
032452 
033641 


025321 


030727 
032452 
033641 
025525 
030754 
032500 
033677 
025630 
031111 
032516 
033641 


025723 
030754 


032500 
033653 


:1TEM 7 


: 1TEM 10 


ITEM 11 


s ITEM 12 


ITEM 14 
. WORD 
- WORD 


WORD 
WORD 


: ITEM 15 
.WOR 
. WORD 


WORD 
WORD 


: ITEM 16 
. WORD 


WORD 


. WORD 
. WORD 
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SEQUENCE 27 


;SUMMARY OF BIT PATTERN FAILUR 
;MAPREG MAPREG EXPECTD E 


UPPER 6 BITS OF MAP REGISTERS 
"OR ' *"AND'' ‘or’ *"AND** 253 


IVD RECEIVD 
, "" __ MERRORS TESTNO 


; ADDROR .ADRAND ,PATTOR ,PATAND , DATAOR ,DATAND , ERRCNT ,STESTN. 0 
:CAN'T GET TO MAIN MEMORY FROM UNIBUS WITH THE MAP OFF 

"$0 JUMPING TO THE SIZE JUMPER TEST FOR VERIFICATION 
“TESTNO ERR PC 

i STESTN, SERRPC ,0 


; SUMMARY OF COUNT PATTERN FAILURES ON THE UNIBUS DATA PATH 
sEXPECTD EXPECTD RECEIVD RECEIVD 
; “AND'’ —_*‘OR"" “‘AND’’ #ERRORS TESTNO 


:PATTOR..PATAND  DATAOR ,DATAND .ERRCTN, STESTN. 0 
: UNIBUS MAP IS RELOCATING WHEN NOT ENABLED 
: STESTN, SERRPC .0 


; CANNOT USE ANY OF THE MAP REGISTERS OR PHYSICAL 
ADDRESS BIT14 IS STUCK LOW, MUST RESTART PROGRAM 
:1F YOU DON'T LOOP ON THIS PROBLEM. 


:TESTNO ERR PC 

ie Sar ‘eae 

: SUMMARY OF UNIBUS ADDRESS ERRORS, WITH MAP RELOCATION DISABLED 
sEXPECTD EXPECTD RECEIVD RECEIVD 

; “OR ‘AND ‘OR ‘AND*’ #ERRORS TESTNO 

; ADDROR ,ADRAND , DATAOR , DATAND .ERRCNT ,STESTN.O 


: 2, as & Oe te @ 


sMAIN MEMORY TIME OUT OVER THE UNISUS DID NOT OCCUR PROPERLY. 
;CONDITN CONDITN 

;EXPECTD RECEIVD TESTNO ERR PC 

CPUEX 2 weseitieeeemedas 


OF DUAL MAPPIN RORS 


FD G ER 
EXPECTD RECEIVD RECEIVD 
*"AND' ‘oR*' *"AND'' #ERRORS TESTNO 


ere 


ee | ee ee ee ee ee re 


- ——— —_ SE oe 
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ERROR POINTER TABLE 


1591 s ITEM i7 

1592 001546 06606) . WORD EM17 :NO UNIBUS MEMORY EXISTS 

1593 001550 030727 -WORD DH10 :TESTNO ERR PC 

1594 001552 032452 «WORD 0710 :STESTN,SERRPC,0 

123 001554 033641 ~WORD ODF ; @, g 

1597 : ITEM 20 

1598 001556 026051 . WORD EM20 : INTERRUPT/ABORT LOGIC TESTS TRAP TO LOCATION 114 DID NOT OCCUR 
1599 001560 030727 RD  DH10 :TESTNO ERR PC 

1600 001562 032452 WORD DT10 :STESTN,SERRPC,0 

1 001564 033641 WORD ODF1 : 0, @ 

1603 : ITEM 21 

1604 001566 026150 ~WORD EM21 : INTERRUPT/ABORT TESTS R4 WAS OVERWRITTEN WITH 
1605 sDATA INDICATING THAT INSTRUCTION WAS NOT ABORTED 
1606 001570 030727 ~WORD DH10 :TESTNO ERR PC 

1607 001572 032452 -WORD DT10 :STESTN,SERRPC,0 

i 001574 033641 -WORD  ODF1 ; 0, 0 

1610 : ITEM 22 

1611 001576 026226 . WORD EM22 : INTERRUPT/ABORT TESTS TRAP DID NOT OCCUR DUE TO ABORT 
1612 001600 030727 -WORD DH10 , ;TESTNO ERR PC 

1613 001602 032452 «WORD DT10 :STESTN, SERRPC,0 

by oy 001604 033641 ~WORD ODF1 : 0, 0 

1616 : ITEM 23 

1617 001606 026314 .WORD €EM23 :LMA NOT LOADED PROPERLY 

1618 001610 031170 -WORD DH23 :TESTNO ERR PC LMAEXP LMARCV 

1619 001612 032530 -WORD DT23 sSTESTN, SERRPC ,EADRES ,EADRS2,0 

1osy 001614 033705 -WORD DF23 :@ 268 

1622 s ITEM 24 

1623 001616 026344 -WORD EM24 :LMA FORCE JUMPER BIT NOT ZERO 

1624 001620 031231 -WORD DH24 :TESTNO ERR PC LMAEXP LMARCV 

1625 001622 032542 -WORD DT24 : STESTN, SERRPC ,SREG1.LMAHI ,0 

os 001624 033641 ~WORD ODF1 ; 0 &. 9, 9 

1628 s ITEM 25 

1629 001626 026402 F EM25 :LMA FORCE JUMPER BIT NOT SET 

1630 001630 031231 -WORD DH24 :TESTNO ERR PC LMAEXP LMARCV 

1631 001632 032542 -WORD DT24 >STESTN, SERRPC ,SREG1.LMAHI ,0 

1036 001634 033641 -WORD ODF1 ; 0, 0, 0. 0 

1634 : ITEM 26 

1635 001636 64 -WORD EM26 7LMA CONTROL BITS INCORRECT 

1636 001640 031231 -WORD DH24 :TESTNO ERR PC LMAEXP LMARCV 

1637 001642 032554 -WORD DT26 :STESTN, SERRPC,STMPO,SREG2.0 

1638 001644 033641 -WORD ODF1 : @ @ 9. 9 

1640 s ITEM 27 

1641 001646 026472 -WORD €EM27 sFORCE JUMPER BIT FAILS TO REVERT MAP REGISTER STATUS TO DEFAULT 
1642 001650 031270 ~WORD DH27 ;TESTNO ERR LMARCV KIPAR4 

16435 001652 032566 -WORD DT27 = $TESTN, SERRPC,.STMPO,.KIPAR4 .0 

1644 001654 033641 -WORD ODF! : 0, 0, 0 





2-6 wee no -e —e  ee e e~ o 


— ne ee ae ee eee le a ee ee 


| 





ome ee ee ee ee ee 


dD 3 
CKKUAEO 11/24/44 UBI MAP MACRO M1113 11-JAN-82 11:27 PAGE 25 SEQUENCE 29 
ERROR POINTER TABLE 


1645 ITEM 30 

1646 001656 026572 -WORD EM30 ;KIPARS NOT LOADED PROPERLY 

1647 001660 031327 «WORD DH30 :TESTNO ERR PC PRSEXP PRSRCV 
1648 001662 032600 -WORD DT30 :STESTN, SERRPC ,STMP5 ,KIPARS,0 
1649 001664 033641 -WORD ODF1 ; 0,9, 0, @ 
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ee 
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1650 001666 ER200: :THIS IS THE STARTING POINT FOR ERROR MESSAGES 
1651 "201 THROUGH 377. THEY ARE USED FOR MULTIPLE 

1652 “ERROR MESSAGES. 

1653 

1654 - ITEM 201 

1655 001666 026625 “WORD €M201  ;THE FOLLOWING REGISTERS TIMED OUT WHEN READ 

1656 001670 031366 WORD DH201 :REGADRS TESTNO ERR PC 

1657 001672 032612 "WORD DT201 :EADRES,$TESTN, SERRPC,0 

1658 001674 033711 "WORD DF201 : 2, 0, 0 

1660 : ITEM 202 

1661 001676 026701 “WO EM202  :THE FOLLOWING ARE DUAL ADDRESSING ERRORS IN THE UNIBUS MAP 
1662 001700 031415 “WORD DH202 :MAPREG  MAPREG ~ZER 

1663 “TESTING DUALED — CONTNTS TESTNO ERR PC 

1664 001702 032622 -WORD DT202 :EADRES,EADRS2,$TMP3,$TESTN,SERRPC,0 

1665 001704 033661 “WORD DF6 . 2, 2, Os ae 

1667 : ITEM 203 

1668 001706 026774 “WORD EM203  ;THE BIT PATTERN THROUGH THE MAP REGISTERS FAILED 
1669 001710 031524 "WORD DH203 <:REGADRS PATTRN EXPCTD RECEVD TESTNO ERR PC 
1670 001712 032636 "WORD DT203 :EADRS2,$TMPO,$REG4,$REG3.$TESTIN, SERRPC,0 

1671 001714 033711 -WORD DF201 ; 2, 0, 0, 0. 0. 0 

1673 ZITEM 204 

1674 001716 027055 “WORD M204  ;UNIBUS DATA PATH COUNT PATTERN FAILURE 

1675 001720 031605 "WORD DH204 :EXPECTD RECEIVD ADDRSLOAD TESTNO ERR PC 

1676 001722 032654 "WORD DT204 :$TMPO,$TMP1,$REG2,$TESIN, SERRPC,0 

1677 001724 033717 “WORD DF204 :0, 0, 3, 0, 0 

1679 : ITEM 205 

1680 001726 027124 “WORD E—M205  ;UNIBUS ADDRESSING ERRORS, MAP RELOCATION DISABLED 
1681 001730 031656 -WORD DH205 :ADDRESS ADDRES 

1682 “EXPECTD RECEIVD TESTNO ERR PC 

1683 001732 032670 -WORD DT205 :EADRES, EADRS2,$TESTN,SERRPC,0 

1684 001734 033677 “WORD DF16 : 2, 2, 0, 0 

1686 : ITEM 206 

1687 001736 027206 } EM206  :DATA PATTERN NOT CORRECT 

1688 001740 031743 "WORD DH206 <:ADDRESS EXPCTD RECVED TESTNO ERR PC 

1689 001742 032702 "WORD DT206  :EADRES,STMP4.$TMPS,STESTN, SERRPC,2 

1690 001744 033711 “WORD DF201 : 2, 0, 0. 0. 0 

1692 : ITEM 207 | 
1693 001746 027237 . EM207 REFERENCED MAP REGISTER 0 WITH ADDRESS ONE BIT DIFFERENT THAN 17770 
1694 001750 032013 "WORD DH207 :ADDRUSED BITDIFF TESTNO ERR PC 

1695 001752 032716 “WORD DT207 :EADRES SREGO, STESTN, SERRPC,0 

1696 001754 033711 "WORD DF201 :2, 0, 0. 0 

1698 : ITEM 210 

1699 001756 027346 “WORD £—M210 :MAP REGISTER UNDER TEST DID NOT RESPOND IN DUAL MAPPING TEST 
1700 001760 032054 "WORD DH210 <:TESTNO ERR PC MAPREGADR 

1701 001762 032730 "WORD DT210 :$TESTN,$ERRPC,EADRES,0 

1702 001764 033724 "WORD DF210 : 0, 0. 2 
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1703 sITEM 211 

1704 001766 027446 “WORD £M211  :RELOCATION THROUGH THE MAP WAS NOT CORRECT, CARRY PROPAGATION 
1705 “TEST BEING RUN OVER UNIBUS 

1706 001770 032106 .WORD DH211 :CORRECT EXPECTD RECE1VD 

1707 “ADDRESS DATA FROM UB TESTNO ERR PC 

1708 001772 032740 _WORD DT211  ‘:EADRES,$REG3,$REG2,$TESTN, SERRPC,0 

1709 001774 033711 "WORD DF201 : 2, 0, 0, 0, 0 

1711 : ITEM 212 

1712 001776 027604 “WORD EM212. :MAIN MEMORY TIME OUT OVER THE UNIBUS DID NOT OCCUR PROPERLY. 
1713 ;TEST BEING RUN OVER UNIBUS 

1714 002000 032106 -WORD DH211 :CONDITN CONDIT 

1715 “EXPECTD RECEIVD TESTNO ERR PC 

1716 002002 032740 -WORD DT211 :CPUEXP,PCPUER, $TESTN, SERRPC,0 

1217 002004 033711 "WORD DF201 : 0, 0, 0, 0 

1719 : ITEM 213 

1720 002006 027737 “WORD M213 ;MAP_REGISTER ENABLED en DDW SAYS IT SHOULD BE DISABLED 
1721 002010 032270 "WORD DH213  :TESTNO ERR PC REG NO DDWDAT DDWADR 

1722 002012 032766 "WORD DT213  :$TESTN,SERRPC,$TMPO,$TMP1,$REG5,0 

1723 002014 033641 “WORD DF : 0, 0, 0, 0, 6 

1725 ITEM 214 

1726 002016 030030 “WORD —M214  :MAP REGISTER DISABLED WHEN DDW SAYS IT SHOULD BE ENABLED 
1727 002020 032270 "WORD DH213  :TESTNO ERR PC REG NO DDWDAT DDWADR 

1728 002022 032766 "WORD DT213  :$TESTN.SERRPC,STMPO,$TMP1,$REGS.0 

1729 002024 033641 "WORD DF 1 : 0, 0, 0, 0. 0 


a tee a ss + ee ee ee — 
—_—_ -———_— 3S + + 


/CKKUAEO 11/24/44 UBI MA MACRO M1113 11-JAN-82 11:27 PAGE S° SEQUENCE 


SOFTWARE SWITCH REGISTER LOCATION 


1730 .SBTTL SOFTWARE SWITCH REGISTER LOCATION 

1731 its 6 .$Y=. ; SA VE ADDRESS LOCATION 

17 ¢ 000176 =176 ;ADDRESS TO SOF TWARE SWITCH REGISTER LOCATION 
1733 000176 000000 $SSWR: .WORD 0 :LOCATION FOR SOFTWARE SWITCH REGISTER 

1734 002026 =. $Y :RETURN TO PREVIOUS ADDRESS LOCATION 


ee — 
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1735 .SBTTL ERROR MESSAGE TYPE OUT ROUTINE 


1736 SoG IU IOI ICI ICIS OISICTCIOIOIIOIOITINIOIIOIOII IIIT TOTTI TT OTT TT TTT TISAI 
1737 3% 
1738 ;* THIS SUBROUTINE IS CALLED BY THE er HANDLER TO TYPE 
1739 ;* THE ERROR MESSAGES. IT PICKS UP THE ITEM int (S$ITEMB) NUMBER 
1740 ;* AND USES THAT 10. INDEX THROUGH sy ERROR TABLE. HE ERROR 
1741 7* Ma, 3 STARTS AT VSERR RTB’' AND HAS FOUR (4) POINTERS FOR EACH 
1742 7° ENT "EM', "DH', ‘DT’, ‘DF*. THE ‘EM’ POINTS TO THE ERROR 
1743 ze MESSAGE WHICH IS AN ASCIZ STRING. THE ‘DH’ POINTS TO THE DATA 
1744 ;* HEADER WHICH IS ANOTHER ASCIZ STRING. THE ‘DT’ POI TO THE 
1745 :* D TABLE WHICH IS A ro? OF pint ore at THE ADDRESSES 
1746 3* OF THE DATA TO BY TYPED. HIS D 
1747 ;* CONTROLLED BY THE ‘DF’ OHICH 15 THE T OOINTER TO THE DATA FORMAT. 
1748 3* THE DATA FORMAT IS A GROUP OF BYTES pp a CONTAIN 
1749 7* THAT CORRESPOND TO DIFFERENT TYPING FORMATS. 
1750 ;* 0 -16 tas OCTAL FORMAT 
1751 :* 1 - ey — age | 
1752 :* 2 -2 OCTAL FORMAT. DATA IS LOWER 16 BITS OF THE 
1753 ;* PHYSICAL ADDRESS, UPPER 6 BITS ARE ADJACENT TO LOWER 16 
1754 ;* 3 -22 BIT OCTAL 4g Roy IS THE 16 BIT VIRTUAL 
1755 :* ADDR RES IN —c I-SPACE. 
1756 ;* 4 -18 BIT OCTAL FORMAT. POATA IS A 16 BIT NUMBER THA 
1757 ;* WILL We CONVERTED INTO A UNIBUS ADDRESS BY LEFT 
1758 ;* SHIFTING IT 6 BITS. 
1759 3* 5 -16 BIT OCTAL, SUPPRESS LEADING ZEROS 
1760 ;* -16 BIT DEC SUPPRESS 
1761 zt D HAVE A NEED TO JUST TYPE A STRING OF 
1762 ;* NUMBERS, SET UP YOUR CODE THIS WAY: 
1763 ;* CONTINUE,-(SP) ;MOVE THE ADFRESS OF THE INSTRUCTION AFTER THE 
1764 ;® > JUMP TO THE STACK 
1765 :* MOV RO,~(SP) > SAV 
1766 :* MOV R1,~(SP) AND R1 ON THE STACK 
1767 ;* yd “4 oR :MOVE THE ADDRESS OF THE DATA TABLE TO RO 
1768 :* TYPDAT : SUBROUTINE IDENTIFIED IN CENTER OF THIS ROUTINE 
1769 be CONTINUE: i INSTRUCTION 
1770 :* ONVENIENT SPOT, ALOCATE THE FOLLOWING: 
1771 : SDTNAME: T GORD D DTLIST DF NAME ; IDENTIFY THE LIST NAME AND DATA FORMAT BELOW 
1 > *DFNAME: ee an N.N.N, N, ETC. = CONSTRUCT YOUR OWN DATA FORMAT LINE 
o * 
1 s*DTLIST: VAR1,VAR2,VAR3,VAR4,....,$CRLF 0 7 VARIABLES YOU WANT TYPED 
1776 = g POPSET EROCATERS RST OTE CS ESC R ORS HOES ETE Ene eneesengasanecesenae 
1777 002026 010046 ERTYPE : MOV RO,~(KSP) SAVE RO ON STACK 
1778 002030 005000 CLR RO “CLEAR RO 
1779 002032 113700 001112 MOVB $ITEMB,RO :PUT ITEM NUMBER IN RO 
1 0020 001004 BNE 1$ : BRANCH IF IT IS NON-ZERO 
1781 002040 013746 001114 MOV SERRPC ,-(KSP) :PUT ERROR PC ON STACK FOR TYPING 
1782 002044 104402 TYPOC ; TYPE FAILING PC 
1783 002046 000565 BR 13$ ;GO TO RETURN 
1784 002050 122700 000177 1$: CMPB #177,R0 ; SEE IF THIS IS THE PWR MON BIT ERROR  ;DPMOO1 
1785 002054 001003 BNE CH IF NOT TO CALL ER 
1786 002056 012700 002432 MOV #PMBECW,RO “MOVE ADDRESS OF SPECIAL DATA HEADER TO RO 
1787 002062 000451 BR 210$ :BRANCH TO CALL ERR - 
1788 002064 005300 200$: DEC a0 ;ADJUST ITEM NUMBER TO BE A POINTER 
1789 002066 072027 000003 ASH #3,R0 tf AR as 4 a NO. 3 PLACES 
1790 002072 100041 BPL 7s ANCH I M NUMBER IS LESS THAN 200 
1791 002074 023727 001320 000020 CMP ERRCNT ,#20 SEE IF O° (OCTAL) ERRORS HAVE PRINTED 
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ERROR MESSAGE TYPE OUT ROUTINE 


1792 002102 002410 BLT 40$ ::* BRANCH TO PRINT THE ERROR IF LESS 
1793 002104 001404 BEQ 41$ :® BRANCH TO TYPE NO MORE DATA LINES IF EQUAL 
1794 002106 062766 000004 000002 ADD #4, 2(KSP) «"® CORRECT PC RETURN TO RETURN AFTER <CRLF> PRINT 
1795 002114 000542 BR 13$ +: GO TO RETUR 

1796 002116 104401 006421 41$: TYPE NOMORE ::® TYPE MESSAGE TO ANNOUNCE NO MORE PRINTING OF ERRORS 
1797 002122 000537 BR *:* GO TO RET 

1798 002124 022737 000001 001320 40$: CMP #1, ERRCNT ;:* SEE IF THIS IS THE FIRST ERROR 
1799 002132 001415 BEQ ::® BRANCH IF IT WAS AND GO TYPE ERROR MESSAGE 
1800 002134 032777 000200 176774 BIT #SW7,aSWR “SEE IF SWIT 

1801 002142 001404 BEQ “BRANCH IF SWITCH NOT UP AND TYPE DATA 
1802 002144 062766 000004 000002 ADD #4,2(KSP) i SKIP ‘TYPE .$CRLF’ IF SW 7 IS UP 
1803 : INHIBIT MULTIPLE ERROR TYPEOUTS 

1804 002152 000523 BR 13$ ‘BRANCH TO EXIT 

1805 002154 042700 177400 20$: BIC #177400,R0 “CLEAR UPPER BYTE OF RO 

1806 002160 062700 001672 ADD #ER200+4 ,RO ;POINT TO DATA TABLE ENTRY 

1807 002164 000426 BR 5$ :G0 TYPE DAT A TABLE 

1808 002166 042700 177000 21$: BIC 177000,R0 LEAR UPPER BYTE OF RO 

1809 002172 062700 000300 ADD TCERDOO-SERRTB>, ast - ADD DIFFERENCE BETWEEN 

1811 ::GET POINTER TO ERROR MESSAGE AND TYPE IT 
1812 :IF THE POINTER IS NOT ZERO 

1813 002176 104401 001223 22$: TYPE  ,$CRL :TYPE A <CRLF> 

1814 002202 062700 001366 ADD PSERRTE RO “ADD BASE OF ERROR TABLE 

1815 002206 012037 002216 210$: MOV (RO) +, 2$ *P M MESSAGE POINTER IN TYPE STATEMENT 
1816 002212 001404 BEQ “BRANCH IF NO ERROR MESSAGE 

1817 002214 104401 TYPE :TYPE ERROR MESSAGE 

1818 002216 000000 2$: .WORD 0 :POINTER TO ERROR MESSAGE 

1819 002220 104401 001223 TYPE  ,$CRLF CRLF 

1820 > :GET THE POINTER TO THE DATA HEADER AND 

1821 -: TYPE IT IF THE POINTER IS NOT ZERO 

1822 002224 012037 002234 3$: MOV (RO)+,4$° :PUT HEADER POINTER IN TYPE STATEMENT 
1823 002230 001404 BEQ 5$ ‘BRANCH IF NO DATA HEADER 

1824 002232 104401 TYPE *TYPE THE DATA HEADER 

1825 002234 000000 4$: .WORD 0 *POINTER TO DATA HEADER 

1826 002236 104401 001223 TYPE  ,$CRLF “TYPE CRLF 

1827 -:THIS 18 THE START OF THE DATA OUTPUT IF THE 
1828 > :DATA POINTER Is NOT ZERO. RO POINTS TO THE 
1829 32D AF 1 POINTS TO THE ADDRESS OF 
1830 THE DATA OA UORD DS. 

1831 002242 010146 $: R1, steak’ :SAVE R1 ON THE STACK 

1832 002244 TYPDAT=. 

1833 002244 012001 MOV (RO) +,R1 ;PUT DATA TABLE POINTER IN R1 

1834 002246 001464 BEQ H IF NO DATA TABLE 

1835 002250 012000 MOV (RO) +,RO “PICK UP DATA FORMAT POINTER 

1836 002252 105710 6$: TSTB ~—_ (RO 71S THIS WORD OCTAL 

1837 002254 001003 BNE CH IF NOT 16-811 OCTAL 

1838 > 18 16 BIT OCTAL FORMAT ¢ = 0) 

1839 00225. 013146 V a(R1)+, -iisp : PUSH NEXT 16-BIT WORD oN STACK 

1840 002260 104402 TYPOC YPE THE WORD ON STACK AS 16 BIT OCTAL 
1841 002262 000451 BR 11$ “GET READY FOR NEXT WORD 

1842 002264 122710 000001 7$: CMPB ss #1, (RO) ‘IS THE WORD DECIMAL 

1843 002270 001003 BNE 8$ ANCH IF NOT DECIMAL 

1844 :WORD 1S DECIMAL FORMAT (DF = 1) 

1845 002272 013146 MOV a(R1)+, ~(KSP) ;PUSH NEXT 16~BIT WORD ON 

1846 002274 104405 TYPDS YPE THE WORD ON STACK AS DECIMAL 
1847 002276 000443 R “GET READY FOR NEXT WORD 

1848 002300 122710 000002 8S: CMPB #2 (RO? "1S WORD s2-BIT PHYSICAL ADDRESS 
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1849 002304 
1850 

1851 002306 
1926 Sete 
1853 002314 
1854 002320 
1855 002324 
1856 Ons e60 
1857 002330 
1858 002332 
1859 002336 
1860 

1861 

1862 002340 
1863 002342 
1864 002346 
1865 002350 
1866 

1867 002354 
1868 

1869 

1870 

1871 00235 
1872 002362 
1873 002 
1874 


1875 002370 
1876 


1877 
1878 002372 
18 74 
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001012 
012146 
004737 


013146 
104403 
006 
000 
000402 


ores 


002442 
120 
124 

020146 
000 


INE 
024040 
000003 
002326 


000003 


002542 
000004 


002650 
000005 


002426 


040 


002476 
117 


105 
001114 
000 
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000 
002526 
127 
123 


020700 
000 


30$: 
9$: 


10$: 


100$: 


110$: 


BNE 


JSR 
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SEQUENCE 55 


9$ BRANCH IF NOT 22-BIT ay ae ADDR 
: WORD 18 522-81 ag Lb FORMAT = 2) 


(R1)+,-(KSP)  :PUSH NEXT 16-BIT WORD on eT TACK 
PC. $D820 : CONVERT T NUMBER TO OCTAL ASCIZ 
#3. (KSP) “ONLY WANT 8 D 
(KSP) +, 30$ :PUT POINTER AFTER ‘TYPE’ CALL 
0 ‘WORD HOLDS POINTER TO ASCIZ STRING 
1$ “GET READY FOR NEXT WORD 

#3, (RO) °IS THIS A 16-BIT VIRTUAL ADDRESS 
10$ “BRANCH IF NOT 16-BIT ADDR. 

:WORD 1S 22-BIT VIRTUAL ADDRESS” 1 ORMAT 

S TKERNEL I-SPACE ASSUMED . (DF = 3) 
a(R) ~(KSP) :PUSH NEXT 16-BIT WORD ON STACK 
PC, TYPVAD “GO TYPE 22-BIT ADDRESS FROM 16-BIT V.A. 
1 “GET READY FOR NEXT WORD 
#4, (RO) *IS THIS A 16 BIT NUMBER TO BE CONVERTED TO 

: IT UNIBUS ADDRESS LEFT SHIFTED 6? 
100$ SKI OVER FORMAT 4 ROUTINE IF NOT 
::WORD IS 4. A WORD IS A 


FORMAT DAT UNIBUS 
; :ADDRESS OUTPUT WILL BE 18-BITS WORD LEFT SHIFTED 6. 






PC ,UBADDR ;CONVERT TO 18-BIT UNIBUS ADDR AND TYPE 
;GET READY FOR NEXT WORD 
#5, (RO) :1S_THIS A 16 BIT NUMBER TO BE PRINTED AS 
7 OCTAL wITH LEADING ZEROS SUPPRE 
110$ : CH TO DECIMAL LEADING SPACES SUPPRESS ROUT INE 
FORMAT 5. DATA WORD IS TO BE 


DI 
: : PRINTED IN or 4 9 ZEROS SUPPRESSED. 
NEXT 16-8 


a(R1)+, ~{ksP) ; PUSH IT WORD ON STACK 
:GO TYPE OCTAL SUPPRESS LEADING ZEROS 
6 TYPE 6 DIGITS AND 
0 SUPPRESS LEADING ZEROS 
11$ i=. READY FOR NEX 
;:WORD IS FORMAT 6. DATA WORD IS TO BE 
> :PRINTED IN ig LEADING SPACES SUPPRESSED. 


a(R1)+,-(KSP):PUSH NEXT 16-BIT WORD ON STACK 
:POINT TO NEXT FORMAT BYTE 


RO 
.52$ :TYPE TWO SPACES 
(R1) 71S 


:1S THERE ANOTHER WORD? 
6$ : H T ALL DONE 
(KSP)+,R1 sRESTORE R1 
(KSP)+,RO zRESTORE RO 

C [RETURN TO ERROR ROUTINE 
, 3 ;TWO SPACES 


PMBE CM, PMBE CH, PMBECD.PMBECF :4 WORDS POINTING TO BELOW 
2POWER MONITOR BIT FOUND SET? 


?7TESTNO ERR PC CPUERR? 


STESTN, SERRPC, CPSAVE,0 
0,0,0,0 
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1934 6 
1935 002640 
1936 

1937 002642 
1938 002644 
1939 002646 
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104411 
016601 


000002 
000003 


172340 
000006 


001230 
001226 
001226 
024040 
000003 
002640 
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» SBTTL CONVERT 16-BIT VIRTUAL ADDRESS TO 22-BIT PHYSICAL ADDRESS 


TPRAAAREAESASALZALLELERERERE EERE EERE EER RRR RAR RRR RRR RRR ARREARS SES SE 


** 
THIS ROUTINE IS CALLED BY A ‘JSR PC’ AFTER THE VIRTUAL ADDRESS 
ie 1S PUSHED ON THE KERNEL STACK. THE V-A. Is THEN LOADED INTO 
:* R1 AND THE UPPER 3 BITS ARE SHIFTED INTO.RO TO SELECT THE 
ie RORRECT KERNEL 1=SPACE PAR, THE LOWER 12 BITS OF THE VIRTUAL 
re COR RESS ARE ADDED TO THE PAR AS THEY ARE BY MEMORY MANAGEMENT 
it AND THE PHYSICAL ADDRESS I$ SAVED IN MEMORY TO BE CONVERTED 
tt TO ASCIZ AND TYPED. 
** 
i iadededoelb-teteintubtalalalalelelelebalatetahahahehelabaleb-ytyi-iebetdai-tpip ht dalelelalelalelaiaialalaiale 
TYPVAD: SAVREG ;SAVE ALL REGISTERS 
MOV 2(KSP) ,R1 ‘PUT VIRTUAL ADDR IN Rt 
CLR RO [CLEAR RO F 
ASHC #3,RO0 LEFT SHIFT ORO. Ri 3 PLACES 
ASL RO “LEFT SHIFT R MORE PLACE 
ROR R1 ‘RIGHT SHIFT R1 SO OFFSET IS CORRECT 
ROR R1 “RIGHT SHIFT R1 
ROR “RIGHT SHIFT R 
ADD #KIPARO,RO [FORM DESIRED PAR ADDR IN_RO 
MOV (RO) .R3 ‘PUT CONTENTS OF PAR IN 
CLR R2 :CLEAR Re FOR PHYSICAL ADDR CALCULATIONS 
ASH #6,R2 “LEFT SHIFT <R2,R3> 6 ES 
ADD R1,R {ADD OFFSET INR TO BASE IN R3 
ADC R2 :ADD ANY POSSIBLE CARRY TO UPPER 6 BITS 
MOV R2,PADRSH R 6 BITS OF ADDR IN C 
MOV R3.PADRSL LOWER 16 BIT ADDR IN C 


MOV #PADRSL ,~(KSP) 

JSR a8 ks : RT CI 

ADD #3, (KSP) ONLY TYPE 

MOV (KSP)+,3$ ;PUT POINTER AFTER T INST 

TYPE TYPE THE 22 RTUAL ADDRESS 
3$: -WORD 0 : THIS POINTER TO 

3 THE ASCIZ STRING 

RESREG RESTORE ALL THE REGISTERS 

MOV (KSP) +, (KSP) ; LEAVE ONLY RETURN ADDR ON STACK 

RTS PC ;RETURN TO ERROR HANDLER 


EE ey ne es 
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MACRO 
UBROUTINE TO CONVERT WORD TO A UNIBUS ADDRESS AND TYP 


1940 - SBTTL SUBROUTINE TO CONVERT WORD TO A UNIBUS ADDRESS AND TYPE 
1941 GIOIA IIDICIIIDIOIIIOIOIOIOISIIDIOISIOIIIIINIIIOIIIIOIOIIIOIIDIIIOIOIOIIIIOIOIIOIII I TTI 
1942 **THIS SUBROUTINE IS USED TO CONVERT THE A WORD Siwy 

1943 : *ON THE STACK INTO A UNIBUS ADDRESS AND TYPE IT AS A 

1944 =*6 DIGIT NUMBER. IT USES R1 & RO AND LEAVES 

1945 ; *ALL OTHER REGISTERS UNCHANGED. 

1946 CORIO ISIC IOIOIIUIOIOIIOIIUIDITIOIIOIOIOIOIOI IIIT TTT IIIA SSSSASASSSSSSCSE 
1947 002650 104411 UBADDR: SAVREG 

1948 002652 016601 000002 MOV 2(KSP),R1 :LOAD 16 BIT ADDRESS INTO R1 

1949 002656 005000 CLR RO =C AR RO FOR CALCULATIONS 

1950 002660 073027 000006 ASHC #6,R0 ;LEFT SHIFT <RO:R1> 6 PLACES 

1951 002664 010137 001226 MOV R1,PADRSL :PUT LOWER 16 BITS IN PADRSL 
1952 002670 010037 001230 MOV RO,PADRS :PUT UPPER 6 BITS IN PADRSH 

1953 002674 012746 001226 MOV #PADRSL ,=(KSP) :PUSH POINTER TO WORDS ON STACK 
1954 0027 004737 024040 JSR ,$DB2 > JUMP TO CONVERT ROUTINE 

1955 002704 062716 000005 ADD #5, (KSP) ONLY USE LOWER 6 CHARS. 

1956 002710 012637 002716 MOV (KSP) +, 3$ PUT POINTER AFTER TYPE CALL. 
1957 002714 104401 TYPE 

1958 002716 3$: WORD sHOLDS POINTER TO FIRST CHAR. 
1959 002720 104412 RESREG 

1960 002722 012616 MOV (KSP)+, (KSP) :LEAVE ONLY RETURN ADDRESS ON STACK 
1961 002724 207 RTS PC ;RETURN TO ERROR TYPE ROUTINE. 


—— 
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TURN OFF AND SAVE T-BIT 


1962 .SBTTL TURN OFF AND SAVE T-BIT 
1963 T penanionpanin eng ste tank och me nite) ehededecte dete ieee 
1964 DOISIII IOI IIIDIISIOIOIIUIIOIIISIIIOISIIUI IOI III IOI TR TR EE Rete h 
1965 a **SUBROUTINES UNIQUE TO THIS PROGRAM** 
1966 SRR TR TIT TTR EERE REE EERE RARE EEEEEEREERE EEE 
1967 RRO IOIIUISIOISIOIOIOIOIISIIIISIIIUIOIIOIIUINIIIIIIDIDIDIDIIIDIIIIINI IOI IIIT TION 
Pc SR ITO IOI IIT RITE ERR REE REE EERE EERE Ah 
1970 th 
1971 :* THIS TRAP ROUTINE IS REACHED BY THE TRAP CALL ‘TBITO’. IT IS 
1972 :* USED TO TURN OFF THE T-BIT IF IT IS ON. THE PROCESSOR STATUS 
1973 :* IS SAVED IN ‘‘OLDPSW'’ SO THAT THE T-BIT CAN BE RESTORED TO ITS 
1p 3% PREVIOUS STATUS WHEN CONDITIONS WARRANT. 

* 
1976 eee ee Oy oe gee 
1977 000020 TBIT=BIT4 zT-BIT IS ie IN PROC. STATUS 
1978 002726 032766 000020 000002 ITBITOF: BIT MTBIT,2(KSP) 71S THE T-BIT ON? 
1979 002734 0014 BEQ 1$ :BRANCH TO EXIT IF IT IS NOT ON 
1980 002736 016637 000002 001346 MOV 2(KSP),OLDPSW ;SAVE OLD it FOR RESTORING T BIT 
1981 002744 042766 000020 000002 BIC WTBIT,2(KSP)  ;CLEAR T BIT 
1982 002752 000006 1$: RTT ;RETURN TO PROGRAM 


SEQUENCE 
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RESTORE 


1983 
1984 


1 
1 
: 
1 
1 
19 
: 
: 
1 
F 
: 
1 


RET Te 
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ee ee Ce. 


11/24/4 
T-BIT 


002754 013766 001346 000002 
002762 042737 000020 0013546 


002770 000006 


mr ee Cie ee eC 
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TO ITS PREVIOUS CONDITION 


- SBTTL RESTORE T-BIT TO ITS PREVIOUS CONDITION 


PPAR ARSSASESESALALALELERE SESE ERR E RE RR RRR RRR RRR RASA RRR SSAA SEES S| 


THIS TRAP ROUTINE CAN BE REACHED BY THE TRAP CALL ‘TBITR’. IT IS 
USED TO ry ih THE T=BIT AFTER A PARTICULAR TEST THAT CANNOT 

BE RUN WITH THE T-BIT ON. IT USES THE PROCESSOR STATUS STORED 
yA te * REPLACES THE PS ON THE STACK WITH IT 


a: ie6hhLhlL | lh al 


ITRE: MOV OLDPSW,2(KSP)  ;PUT OLD PSW ON STA 
BIC #TBIT,OLOPSW * CLEAR “ve IN "OLD su 
IT WON'T BE T ON BY ACCIDENT 


HAT URNED 
RTT ;RETURN TO PROGRAM AND INHIBIT T-BIT TRAP AFTER THIS INSTRUCTION 


@-- +s + + # H BS 


weg te Se Se Se Be Be Be Be Be 
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— SUBROUTI 


170200 


000040 
020000 
170400 


MACRO mi. 11=JAN~82 11:27 PAGE 5. 
INE TO CLEAR ALL OF THE MAP REGISTERS 


172516 


- SBTTL SUBROUTINE TO CLEAR ALL OF THE MAP REGISTERS 


SRHAAAAAAEAAAARAAAAAARAAAEAERAAREAAREREAAREARAAEAHAEEHAAHEEEAR EAE Ee 


+" 
:* THIS SUBROUTINE CLEARS ALL OF THE MAP REGISTERS IF MAPPING IS 
:* DISABLED BY LOADING THE ADDRESS 0 N 
:* CLEARING THECREGISTER POINTED TO BY AS-UNTIL R3 POINTS. ABOVE 
ie 3 PPING 1S ENABLED, ALL REGISTERS EXCEPT MAPL 
:* IS CLEARED. THE LOWER RECEIV THIS 1S 
:* $0 APT CAN’ PROPERLY MONITOR THE PROGRESS OF THE DIAGNOSTIC. 
** 
UIT ti tii iii 
CLRMAP: MOV = #MAPLO,R ;PUT FIRST MAP ADDR IN R3 

CLR (R3)+ :CLEAR MAPLO 

CLR (R3)+ :CLEAR MAPLO+2 

BIT § #BITS,MMR3 SEE IF MAPPING IS ENABLED 

BEQ 1$ ;BRANCH TO CLEAR ALL IF NOT ENABLED 

MOV § #20000,(R3)+  3LOAD 20000 INTO MAPL1 FOR POSSIBLE APT USE 
1$ CLR (R3)+ :CLEAR MAP REGISTERS 

(MP §- WMAPH37+2,R3 =: SEE_IF LAST ADDR+2 IS_IN R3 

BNE 1$ BRANCH | 

RTS = PC RETURN TO 


ee 


SEQUENCE 
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CKKUAEQ 11/24/44 UBI MAP MACRO M1113 11-JAN-82 11:27 PAGE i SEQUENCE 4/1 
SUBROUTINE TO LOG AND REPORT TIMEOUTS OF MAP REGISTERS 


2018 .SBTTL SUBROUTINE TO LOG AND REPORT TIMEOUTS OF MAP REGISTERS 
2019 SUISSE ISIS IIIO ISISISIISISIIOIISIIOIIDIOIIIDIDIOIIOIDIDINIIDIDIOIIIDININDINO III IN 
2020 ie 
2021 ;* THIS SUBROUTINE IS USED TO LOG AND REPORT THE Re. od THAT A 
2022 :* REFERENCE TO A MAPPING REGISTER TIMED OUT ON THE UNIBUS. IT 
2025 - ost ag: a. gr OeitAl AND’’ AND A "LOGICAL OR’’ OF EACH ADDRESS THAT 
** 

2026 Feat sinitientininaiae hiliaieic told 
2027 003030 005227 TIMEOUT: INC (PC)+ ; INCREMENT ONE TIME GATE 
2028 003032 177777 TOFLAG: .WORD <1 :ONE TIME ENTANCE FLAG 
2029 003034 001403 BEQ 10$ ;BRANCH IF FLAG + NOW ZERO 
2030 003036 005237 020142 INC SMSGTY ; INDICATE TO APT A FATAL ERROR OCCURED 
2031 003042 000000 HALT ;:] HAVE ENTERED THIS ROUTINE BEFORE I FINISHED REPORTING THE FIRST ERROR. 
2032 ;THE SECOND ENTRY ADDRESS IS ON THE STACK AND THE 
2035 ;FIRST ERROR CONDITION IS PROBABLY STILL LOCKED UP. 
2034 003044 012637 001342 10$: MOV (KSP) +, OLDPC ;SAVE RETURN ADDRESS 
2035 003050 012637 001344 MOV (KSP)+,OLDPS sSAVE OLD PSW 
2036 003054 105737 007140 TSTB CPUTYP :SEE IF THIS IS AN 11/44 
2037 003060 001406 BEQ 1$ ;BRANCH TO CONTINUE IF IT IS 
2038 003062 005237 001330 INC PCPUER ; INCREMENT PCPUER TO SHOW A TIMEOUT OCCURED 
2039 003066 005737 0013526 TST CPUEXP 7SEE IF THERE WAS AN EXPECTED ERROR 
2040 003072 001435 BEQ 3$ GO REPORT ERROR IF NONE EXPECTED 
2041 003074 000442 BR 4$ s;BRANCH TO EXIT IF TIMEOUT WAS EXPECTED 
2042 003076 013737 177766 001330 1S: MOV CPUERR, ree :SAVE CPU ERROR REGISTER 
2043 003104 013737 001330 177766 MOV PCPUER,CPUERR CLEAR CPU ERROR REGISTER 
2044 003112 023737 0015350 001326 CMP PCPUER,CPUEXP SEE IF ie Fs wy CAME UP. 
2045 003120 001405 BEQ ;BRANCH IF IT TIMEOUT 
2046 003122 012737 177777 003032 MOV #~-1, TOFLAG ;RESET ONE HIME G Gar E 
2047 003130 104001 ERROR +1 ;NOT THE CORRECT CPU TRAP THROUGH 4 
2048 003132 000425 BR 4$ ;BRANCH TO EXIT 
2049 0031 105737 007140 2$: TSTB CPUTYP 21S THIS AN 11/24? 
2050 003140 001403 BEQ 25$ BRANCH IF NOT 
2051 003142 005237 001320 INC ERRCNT ;COUNT THIS AS A TIMEOUT 
2052 003146 000415 BR :G0 TO EXIT 
2053 003150 022737 000020 001326 25%: CMP #TIMOUT,CPUEXP SEE IF A TIMEOUT WAS EXPECTED 
2054 003156 001411 BEQ 4$ ;BRANCH TO EXIT THIS ROUTINE IF IT WAS 
2055 003160 010046 MOV RO,~(SP) ;PUT VIRTUAL ADDRESS ON STACK FOR ADREXT SUBROUTINE USE 
2056 003162 013746 172356 MOV KIPAR7,-(SP) PUT PAR ON STACK FOR ADREXT SUBROUTINE USE 
2057 003166 004737 003674 3$: JSR PC ,ADREXT :GO SET DATA_IN THE 4 WORDS OF ADDROR AND ADRAND 
2058 003172 012737 177777 003032 MOV = #1, TOFLAG :RESET ONE TIME GATE 
2059 003200 104201 ERROR +201 THE FOLLOWING REGISTERS TIMED OUT WHEN READ 

003 012737 177777 003032 4$: MOV #-1 , TOFLAG ;RESET ONE TIME GATE 
2061 003210 013746 001344 MOV OLDPS ,~(KSP) RESTORE OLD PSw 

0032 013746 001342 MOV OLDPC ,~(KSP) ;PUSH RETURN ADDRESS BACK ON THE STACK 
2063 003220 000006 RTT ;RETURN TO THE TEST 


' 
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CPU TRAP HANDLER ROUTINES 


020142 
001342 


001326 
007140 
001330 
177777 


177777 


001320 
001326 
177777 
001330 
001344 
001342 
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001330 
001340 


001326 
003224 


003224 


0013350 
003224 
177766 


SEQUENCE 


- SBTTL CPU TRAP HANDLER ROUTINES 


SERRA ERE EERE ERE ERA EEERERAE REAR ERE EERE EERE ERE ERED 


‘i **TRAP HANDLING ROUTINES** 


TOR ERE SESEESALASLELELELE SELES ERR ARERR RRR RRR RAR RRR RR RR RRR RRR ERASE SS SS 


TPRASESESESAESASAESSAELAELESSES ERE ERR RRS RRR RR RRR RRR RRR RRR RARE ASSESS SD 


THIS SUBROUTINE WILL HANDLE ALL CPU TRAPS AND ABORTS, THROUGH 

“ERRVEC’’ (000004). IF THIS SUBROUTINE IS watt BY A. SE COND 

TRAP BEFORE THE FIRST HAS BEEN Ags eo My HALT IS EXECUTED. 

IF THE WORD "CPUEXP’ IS ZERO, NO TRAP WAS EXPECTE AN 

UNEXPECTED ERROR MESSAGE IS GIVEN. IF THE WORD *CPUEXP*’ IS 
THEN THE C any Me 


PU ERROR REGISTER 4 
BE USED AS A FL AP HAS OCCURRED SINCE IT 
IS LOADED WITH THE ERROR REGISTER IF A TRAP VECTORS HERE 


WTTTTITTI LITT LIL iii 

: INC (PC)+ ;MAKE FLAG ws IF FIRST TIME 

: .WORD - ;NEGATIVE 7 FOR A FLAG 

;BRANCH IF FIRST TIME IN 

S$MSGTY : INDICATE TO APT A FATAL ERROR OCCURED 
HALT >I HAVE ENTERED THIS ROUTINE BEFORE 

4 FINISHED REPORTING THE FIRST ERROR. THE SECOND ENTRY ADDRESS IS 


UU: +2 ee PR RRB DB BP 
al 
wv 
CG. 
m 
x< 
v 
“ 
oO 
“n2Z 
“rm 
= 

PS 

ae 
~ 
—4 
= 
m 
v 
3 
Uv 
m 
»D 
Pit 
2 
— 
~ 
: 


CVC se Be Fe Ge Se Ge Be Be Be Be Se Be Se 


ON 
THE STACK, AND THE FIRST ERROR CONDITION IS Y STILL LOCKED UP. 
108: MOV (KSP)+,OLDPC ;SAVE RETURN ADDRESS. IN CASE OF LOOP 
MOV (KSP)+,OLDPS ;SAVE OLD PSW IN CASE OF 
MOV CPUERR,PCPUER ; PU ERROR REGISTER 
MOV OLDPC ,BAD sSAVE PC+2 AT TIME 
TST CPUEXP :SEE IF ANY CONDITION WAS EXPECTED 
BEQ 1$ ; H IF NO TRAP WAS 
TSTB CPUTYP ;SEE IF THIS WAS AN 11/44 
BNE 2$ BRANCH TO CONTINUE IF AN 11/24 
CMP PCPUER,CPUEXP ;SEE IF EXPECTED ERROR OCCURED 
BEQ :BRANCH IF ERROR CODES MATCH 
MOV #~1,CPFLAG ;MAKE FLAG NEGATIVE ONE FOR NEXT TIME 
ERROR +1 T THE CORRECT CPU TRAP THROUGH 4 
BR 3$ SKIP nigh INSTRUCTION 
1$: MOV #-1,CPFLAG [MAKE FLAG NEGATIVE ONE FOR NEXT TIME 
ERROR +2 ; UNEXPECT PU TRAP THROUGH 4 
BR ;SKIP NEXT IN TI 
2$: INC ERRCNT ; INCREMENT ERRCNT TO SHOW AN ERROR FOR 11/24 
MOV CPUEXP,PCPUER ;PUT EXPECTED CONTENTS IN PCPUER 
3$: MOV #~1, CPFLAG ;MAKE FLAG NEGATIVE FOR NEXT TIME 
MOV PCPUER, PUERR ;CLEAR CPU ER REGIST 
MOV OLDPS,~(KSP) ;PUSH OLD PSW BACK ON 
MOV OLDPC ,-(KSP) ;PUSH RETURN ADDRESS BACK ON STACK 
RTT :RETURN FROM INTERRUPT OR ABORT 


A a re ae = ee oe eo ee rere oe 
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MANAGEMENT TRAPS AND ABORTS HANDLER ROUTINE 


. SBTTL MEMORY MANAGEMENT TRAPS AND ABORTS HANDLER ROUTINE 


PRR REAESASARESALELLLALALRE REESE RSE RRR RRR RRR RARER SRSA RSS SS 


* 

* THIS ROUTINE WILL HANDLE ALL SPURIOUS MEMORY Yes TRAPS 
* AND ABORTS. IT WILL REPORT THE CONDITION OF ALL _ THE MEMORY 

* MAMAGEMENT STATUS REGISTERS, AND THEN RETURN TO THE TEST AND 

* TRY TO CONTINUE RUNNING. 


REAR EEEEEREEEEEEERHEEE 


Soo55 












3372 005227 ijteees INC (PC) + :MAKE FLAG ZERO IF FIRST TIME 

3374 177777 MMFLAG: .WORD <1 “FLAG $ HOULD BE NEG ONE 

3376 001403 BEQ 10$ ‘BRANCH IF FIRST TIME INTO ROUTI 

3400 005237 020142 INC SMSGTY INDICATE TO APT A FATAL ERROR OCCURED 

3404 000000 HALT :1 HAVE ENTERED tins ROUTINE BEFORE I FINISHED REPORTING THE 
:FIRST ERROR. THE SECOND ENTRY ADDRESS IS ON THE STACK AND THE FIRST ERROR 
“CONDITION IS PROBABLY STILL LOCKED UP . 

3406 011637 001340 10$: MOV (KSP) ,BADPC :SAVE PC AT TIME OF ABORT OR TRAP 

3412 012637 001342 MOV :SAVE RETURN ADDRESS IN CASE OF LOOP 

3416 012637 001344 MOV : SAVE OLD IN CASE OF LOOP 

3422 013737 177572 001350 MOV *SAVE STATUS REGISTE 

3430 013737 177574 001352 MOV “SAVE AUTO INC/DEC REGIST 

3436 013737 177576 001354 MOV “SAVE VIRTUAL ADDRESS "A GISTER 

3444 104003 ERROR + “UNEXPECTED M.M. 

3446 042737 177776 177572 1$: BIC #177776,MMRO  ;:CLEAR ALL BITS EXCEPT 0 

3454 012737 177777 003374 MOV #1 *RESTORE A NEGATIVE ONE TO FLAG 

3462 013746 001344 MOV OLDPS,-(KSP) | :PUSH OLD PSW ONTO STACK 

3466 013746 001342 MOV OLDPC,=(KSP) “PUSH RETURN ADDRESS ON STACK 

3472 000006 RTT :RETURN TO MAIN 


ee ee eee ee 
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MACRO 
SUBROUTINE TO TEST A LOCATION FOR WRITEABILITY 













2140 -SBTTL SUBROUTINE TO TEST A LOCATION FOR WRITEABILITY 
2141 SL RRR EEE EERE RRR EERE EERE EAE 
2142 :* 
2143 fe THIS SUBROUTINE CLEARS A TEST LOCATION LOADS THE LOCATION USING 
2144 ** THE MAP REGISTER, AND DETERMINES IF THE L WAS LOADED. IF 
2145 :* IT WAS, RETURN IS NORMAL TO EST. IF ONOT a THE 
$129 :* STACK at UPDATED BY 2 AND THEN A RETURN IS OT TH 
**® 
2148 Tl neil ~ eaten ne ge cman ag 
2149 003474 005237 001174 TSTLOC: INC $TMPO s INCREMENT REGISTER COUNTER 
2150 003500 005737 005774 TST FLOATR ; SEE IF BIT 15 OF FLOATR IS SET 
2151 003504 100011 BPL CH IF STILL PLUS 
2152 003506 022705 020230 CMP #SDDvI, RS SEE IF R5 1S POINTING TO UPPER DOW 
2153 003512 001417 BEQ NEXT CH IF $O = ALL 
2154 003514 012705 020230 MOV #$DDW1,R5 “MOVE ADDRESS OF DDW1 TO RS AND 
2155 003520 012737 000001 005774 MOV #8110, FLOATR  :RESET BIT 0 IN FLOATR 
2156 003526 000411 BR NEXT ‘BRANCH OVER AS 
2157 003530 005227 1$: INC (PC)+ : INCREMENT NEXT LOCATION FOR FIRST TIME THROUGH CHECK 
2158 003532 177777 FTTHRU: .WORD <1 FIRST TIME ENTRANCE FLAG 
2159 003534 001004 BNE 1$ H IF NOT FIRST TIME 
3160 003536 012737 000001 005774 MOV #8110, FLOATR MOVE BIT 0 TO LOCATION FLOATR 
2161 003544 000402 BR CH OVE 
2162 003546 006337 005774 1$: ASL aah “ROTATE THE TEST BIT TO THE LEFT 
2163 003552 005037 037776 NEXT: CLR 3 7 ; CLEAR TEST LOCATION 
2164 003556 005037 001330 CLR EAR ERROR LOCATION 
2165 003562 010210 MOV Ro, CRO) “TRY TO LOAD TEST CELL THROUGH MAP 
2166 003564 023702 037776 CMP 32 776,R2 ‘SEE IF TEST LOCATION WAS LOADED 
2167 003570 001414 BEQ “BRANCH IF IT WAS LOADED 
2168 003572 737 005076 JSR +g CHKLMA -GO SEE IF USER SAYS THIS 1s AN 11/24 WITH UB MEMORY 
2169 003576 177736 177734 . WORD I1,LMALOW § :ADDRESSES OF LMA REGISTERS 
2170 003602 07 BR “RETURN IS HERE IF OK 
2171 00 005737 001330 TST PCPUER ;SEE IF A TIMEOUT OCCURED 
2172 003610 001402 BEQ 1$ H OVER SPECIAL STACK PUSH IF NOT 
2173 003612 013743 001174 MOV STMPO,-(R3) “PUSH REGISTER NUMBER THAT TIMED OUT ON SPECIAL STACK 
2174 003616 062716 000002 1$: ADD #2, (SP) ;CORRECT PC RETURN FOR LOAD FAILURE INDICATION 
2175 003622 000207 2$: RTS “RETURN FROM THIS SUBROUTINE 


CKKUAEQ 11/24/44 UBI MAP 
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SUBROUTINE TO LOAD DATAOR AND DATAND 


000002 001246 
000002 
000002 001242 


- SBTTL SUBROUTINE TO LOAD DATAOR AND DATAND 


TORRE SESESASLOLASELAERS ELE ASRS ERE R RR RRR RRR RRR RRR RRR RASA ERE A RS SD SO 


THIS SUBROUTINE ASSUMES THE DATA TO BE ANDED AND ORED HAS BEEN PUT 
ON THE STACK BEFORE THIS SUBROUTINE WAS CALLED. IT BIT SETS THE 
i i DATAOR, COMPLEMENTS THE DATA AND BIT CLEARS IT ONTO 


EU ISIAIIOI I IOIUISIIOIISINISIII ISI IIDIDIIIDIOIDIIIISIUIDISIIIIOIDIIOIIDIIIIIIDI I 
TEXT: BIS 2(SP) ,DATAOR ;SET THE 7. PATTERN TO DATAOR 
COM gta} :COMPLIMENT THE wit 
BIC (SP) ,DATAND :CLEAR THE 'AND' PATTERN TO DATAND 
MOV = : CLEAN, THE STACK FOR THE RETURN 


e 
. 
tk 
tt 
* te 
te 
te 
Ps 
A 


b 


a ee ee ee er ne ee ee —_ — . 
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SUBROUTINE TO 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 003650 
2200 003656 
2201 003662 
2202 003670 


2203 003672 
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LOAD PATAOR AND PATAND 
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000002 001254 
000002 
000002 001252 


.SBTTL SUBROUTINE TO LOAD PATAOR AND PATAND 


'TORARRRESESSESASALLLSLLESER ALLER ASE RRR RRR ERR RR RR RAR RRR RRR RASA RRS ES SS 


;* 
;® THIS SUBROUTINE ASSUMES THE DATA TO BE ANDED AND ORED HAS BEEN PUT 
;* ON THE STACK BEFORE THIS SUBROUTINE WAS CALLED. IT BIT SETS THE 
;* DATA ONTO PATTOR, COMPLEMENTS THE DATA AND BIT CLEARS IT ONTO 
s* PATAND. 
** 
SUISSE IEEE R IISA IOISIOIIISIOIOIOIIOIOIOIOIOIOITIIIIIIOI IIIT TIAA 
PATEXT: BIS 2(SP) ,PATTOR sSET THE ‘OR’ PATTERN TO PATTOR 

COM 2 :COMPLIMENT THE PATTERN 

BIC 2(SP) ,PATAND :CLEAR THE ‘AND’ PATTERN TO PATAND 

MOV (SP)+, (SP) ;CLEAN UP STACK FOR RETURN 

RTS PC ;RETURN 


es ee ee ee mm ee ee ee 
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KKUAEQ 11/24/44 UBI MAP 
ROUTINE TO TAKE PAR AND LOAD 2 WORDS EACH OF ADDROR & ADRAN 


000004 


000077 
001206 
001240 
001234 
000004 
001206 
000074 


000077 
000006 


176000 
000006 
160000 
000006 
000004 
000004 
000004 
000004 
000077 


000004 
000002 
000002 
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000004 
001206 
005766 
005764 
000006 


001236 
001232 
005766 


005764 
005766 


ee ne -  e 
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-SBTTL SUBROUTINE TO TAKE PAR AND LOAD 2 WORDS EACH OF ADDROR & ADRAND 


TPRAAASAAAAAAEEEAELES ESLER REE R RSE RR RRR RR ARR RARER RRR RRR RRR RSS SS SO 


** 
8 THIS SUBROUTINE ASSUMES THE CONTENTS OF THE PAR, AND THE VIRTUAL 
:* ADDRESS HAVE BEEN PUT ON THE STACK. IT TAKES THE PAR, SHIFTS IT 
se TO EXPOSE THE UPPER ADDRESS BITS, BIT SETS THEM TO ADDROR+2, COM- 
ie PLIMENTS THE CONTENTS AND BIT T CLEARS ADRAND+2. AFTER RELOADING 
:* THE PAR IN T SHIFTS TO GET THE LOWER 16 BIT EQUIVALENT AND 
‘i ADDS THE VIRTUAL ADDRESS TO CREATE THE PHYSICAL LOWER 16 BITS. 
i THEN IT BIT SETS THEM TO ADDROR, COMPLIMENTS THE CONTENTS 
ie BIT CLEARS ADRAND. ANOTH NT BRING STATE BACK TO 
* ITS ORIGINAL STATE. THIS SUBROUTINE LEAVES WITH THE LOWER 16 
:* BITS AND THE UPPER 6 BITS ON THE STACK, BE REMOVED IN 
:* THAT ORDER, AND MUST BE REMOVED AFTER RETURN. 
** 
RRR ERR REAR RE ER EERA EEE EER RE RAREERERERERR EE A RR Ee 
ADREXT: MOV R5S,-(SP) :SAVE R 
MOV 4(§P) .R5 ;MOVE PAR CONTENTS TO RS FOR SHIFTING 
ASH #-10..R5 “SHIFT RS TO THE RIGHT 10 PLACES 
BIC #177700,R5 “CLEAR BITS 15 TO 6 
CMP #74,R5 3 SEE IF 1/0 PAGE 
BNE 1$ CH IF NOT 
MOV #77.RS “RESET RS 10 77 
1$: MOV RS, $TMPS “MOVE OBTAINED UPPER 6 BITS TO STMPS FOR FUTURE TRANSFER 
Bis RS. * ADDROR+2 :SET THE 0 ‘OR’ PATTERN OF UPPER 6 BITS TO ADDROR+2 


R5 
THE *AND’ PATTERN OF UPPER 6 BITS TO ADRAND+2 


BIC R5,ADRAND+2 7 CLEAR 

MOV 4(SP) RS “PUT PAR CONTENTS BACK IN R 

MOV STMP5.4(SP) “MOVE UPPER 6 BITS OF PHYSICAL ADDRESS ON STACK 
CMP #74,$TMP5 *SEE IF 1/0 PAGE 

BNE *BRANCH IF NOT 


MOV #77.EADRES+2 :SET 77 IN UPPER ERROR LOCATION 

nov (SP) ,EADRES ;:SET LOWER ADDRESS IN LOWER ERROR LOCATION 
2$: BIC #176000, R5 BRANCH OF F 6 BITS OF PAR CONTENTS 

ASH R5 “SHIFT REMAINING BITS 6 PLACES TO THE LEFT 

BIC #160000 6(SP)  <:STRIP OFF PAR PAGE BITS FROM ADDRESS TO FORM OFFSET 

ADD R5,6(SP) [FORM LOWER 16 BITS OF ADDRESS 
3$: MOV Reese RS *RESTORE R5 

BIS 4(SP). “SET THE "OR’ PATTERN TO ADDROR 

COM 4(SP) =COMPLIMENT THE SS 

BIC 4(SP) , ADRAND : CLEAR THE "AND' PATTERN TO ADRAND 

COM 4(S “RETURN ADDRESS TO ITS ORIGINAL STATE 

CMP #77,EADRES+2 :SEE IF 1/0 PAGE IN UPPER LOCATION 

BEQ 4$ “BRANCH TO EXIT IF SO 

MOV 4(SP),EADRES :PUT LOWER 16 BITS IN ERROR STATUS LOCATION 

MOV 2(SP) EADRES+2 :PUT UPPER 6 BITS IN ERROR STATUS LOCATION 
4$: MOV (SP)+-2(SP) PUT RETURN ADDRESS WHERE IT BELONGS 

TST (SP)+ “CLEAN STACK 

RTS PC *RETURN 


a ee ee 


om Se cee a 
OO — 


| J 4 
/CKKUAEO 11/24/44 UBI MAP MACRO M1113. 11-JAN-82 11:27 PAGE 42 SEQUENCE 48 
SUBROUTINE TESTING RELOCATION ADDER 


2254 .SBTTL SUBROUTINE TESTING RELOCATION ADDER 










2255 SR REE EEE EERE RRR 
3256 * THE FOLLOWING SUBROUTINE IS USED IN TESTS 13 AND 16, AND USES THE DATA 
2257 ze BANK FOLLOWING TO EXECUTE THE LOOPS IN THE TEST. R3% IS THE SPECIAL 
2258 :* "STACK" POINTER, INITIALIZED AT THE BEGINING TO THE R3STAK DATA BANK. 
2259 tk THE STACK POINTER IS ADVANCED 3 WORDS FOR EACH PASS. CALL THIS SUB- 
2260 tt ROUTINE IN THIS MANNER: 
2261 :* CLR $TMP4 :CLEAR $TMP4 - USED IN ERROR RETURN 
2262 “*1$: JSR PC ,MAPADD “GO DO THE TEST 
2263 ie ERROR +ERRORNUMBER §§ :RETURN IS HERE FOR ERROR 
2264 :* BR 1$ “BRANCH BACK TO CONTINUE TEST 
2265 25 « eRRERREERRERERREREEREREREEEEAEAREREEREEREREEEEEER EERE EERE EEE 
2266 004106 005737 004312 MAPADD: TST OEFLG :SEE IF THIS ENTRY WAS AN ERROR 
2267 004112 001070 BNE $ *GO CONTINUE TEST 
2268 004114 011646 MOV (SP) ,-(SP) “MOVE RETURN UP ONE NOTCH 
2269 004116 062766 000004 000002 ADD #4,2(S “CREATE ADDRESS ON STACK FOR FINAL RETURN 
2270 004124 012703 004314 MOV #RESTAK,R3 “SET THE SPECIAL STACK POINTER 
2271 004130 012704 13 MOV #13,R4 *SET THE LOOP COUNTER 
2272 004134 012737 004162 001106 MOV #2$,$LPERR “SET LOOP ON ERROR POINTER TO ae’ 
2273 004142 005077 175134 CLR @LREGU “CLEAR UPPER BITS OF MAPPING R 
2274 004146 012377 175126 1$: MOV (R3)+,@LREGL | :LOAD LOWER BITS OF MAPPING Ree’ 
2275 004152 013737 001256 172354 MOV LOWEST.KIPAR6 : PAR6 WITH ADDR OF LOWEST MAP REG 
2276 004160 012300 MOV (R3)+,RO >SELECT PARG, OFFSET IS AUGE 
2277 004162 011001 2$: MOV (RQ) Ri “READ LOCATION DEFINED BY 4TH WORD IN TABLE 
2278 004164 012337 001310 MOV (R3)+,UBM24L MOVE ANTICIPATED PHYSICAL ADDRESS TO UBM24L 
2279 004170 020137 001310 CMP UBM2 =z ‘S$ FETCH WAS C 
2280 004174 443 REQ SBRANCH IF FETCHED DATA MATCHES ADDRESS 
2281 004176 004737 005076 JSR PC, CHKLMA 7GO SEE IF USER SAYS THIS IS AN 11/24 WITH UB MEMORY 
2282 004202 177736 177734 .WORD LMAHI.LMALOW ADDRESSES OF LMA REGISTERS 
2283 004206 000436 BR 4$ “RETURN IS HERE IF OK 
2284 004210 032777 004000 174720 BIT 1T11,aSwR ;CHECK TO SEE IF 11/24 WITH UB MEMORY ONLY 
2285 004216 001406 BEQ CH IF NOT 
004220 017737 175064 001176 MOV @UBM24L .STMP1 “GET EXPECTED DATA FOR ERROR CALL 
2287 004226 004737 005000 JSR C.PTMP2 ;60 PREPAR E $TMP2 FOR ERROR CALL 
2289 004234 011037 001176 25$: MOV (RO) .STMP1 “GET EXPECTED DATA FOR ERROR CALL 
2290 004240 010137 001200 MOV R1,$TMP2 *GET DATA FROM R1 FOR ERROR CALL 
2291 004244 162703 000002 26$: SUB *ANTICIPATE ERROR LOOPING BY UNDOING AUTOINC 
2292 004250 013737 001310 005764 MOV EADRES “PUT ADDRESS IN EADRES FOR ERROR CALL 
2293 004256 005037 005766 CLR > “CLEAR UPPER LOCATION 
2294 004262 011646 MOV (SP), =(SP) ‘PUT AN EXTRA RETURN ON FOR POSSIBLE ERROR LOOPING 
2295 004264 012737 000001 004312 MOV #1, LOEFLG “SET FLAG SHOWING ERROR CALL WAS CALLE 
2296 004272 000207 RTS PC “EXIT TO ERROR CALL AT TEST 
2297 004274 062703 000002 3$: ADD #2,R3 sRESTORE AUTOINC, ERROR LOOPING NOT 
2298 004300 062706 000002 ADD #2,SP “CLEAN EXTRA RETURN OFF STACK | - LOOPING NOT DONE 
2299 004304 077460 4$: SOB R4.1$ *SUBTRACT 1 FROM R4& AND 
2300 004306 005726 TST (SP)+ = EXPOSE NEXT TEST RETURN ADDRESS 
2301 004310 000207 RTS PC “EXIT TO NEXT TEST 
2302 004312 000000 LOEFLG: .WORD 0 “LOOP ON ERROR FLAG LOCATION 
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2303 

2304 *>>>NOTE<<<: THE "OFFSET' COLUMN IS NOT IN THE 
2305 : (;) BE TW ng Lt. 3 en ADDRESS AND THE OFFSE1 VALUES 
Sthe } BASE | ADDRES ADDRES: {OF FSET R4 VALUE 
2309 004314 060000 140000 060000 R3STAK: .WORD 080000 17088 OOO 00 800008 R4=13 
2310 004322 052524 145252 057776 .WORD QO e368» 18383 0 0: 05837 R4=12 
2311 004330 045252 152524 057776 -WORD 045252,152524,057776;012524 R4=11 
2312 004336 050420 150420 061040 . WORD O30088- 1273 Dstt ob oh Hels R4=10 
2313 004344 054630 144210 061040 -WORD 054630,144210,061040; 004210 R4=7 
2314 004352 044210 154630 061040 . WORD Bee 180 OO ee BnotOe arn 
2315 004360 056734 142104 061040 -WORD 056 EELS Oy ae FON 3002104 R4= 
2316 004366 042104 156734 061040 . WORD See 18) 1 20r Bs db og 4h 1h R4= 
2317 004374 057776 141042 061040 -WORD 057776,141042,06104 200108 e R4= 
2318 004402 041042 157776 061040 .WORD 041042,157776,061040;017776 R4= 
2319 004410 057776 140002 060000 WORD 057776,140002,060000; 000002 R4=1 


MACRO M1113 


;DATA_IN THE R3STAK DATA BANK BELOW IS _— IN THE FOLLOWING ORDER: 
STACK DUE TO THE DELIMITER 
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2320 .SBTTL SUBROUTINE TO TEST CARRY PROP OF MAP'S RELOC ADDER 












2321 SERRE RRR ERE EER EERE AERA ERERRRE RRR ERER EERE REE EE 
2322 +t THIS SUBROUTINE IS USED BY TESTS 14 AND 17. CODE CALLING THIS SUB- 
2323 ie ROUTINE IS AS FOLLOWS: 
2324 :* CLR $TMP4 :CLEAR $TMP4 - USED IN ERROR RETURN 
2325 “*LAB: JSR PC, TCPMRA G0 DO THE TEST 
2326 :* ERROR 4 :RETURN IS HERE IF AN ERROR 
2327 :* BR ANCH BACK TO CONTINUE TEST 
2328 it aaanannnaueeestensnseeeenneestaneneanecqatanenesqqtareetenee 
2329 004416 005737 004312 TCPMRA: TST LOEFLG : TEST ERROR FLAG TO SEE IF THIS ENTRY IS FROM ERROR 
2330 004 001132 BNE 4$ “BRANCH TO CONTINUE TEST IF SO 
2331 004424 011646 MOV (SP) ,-(SP) *MOV N ADDRESS 
2332 004426 062766 000004 000002 ADD #4,2(SP) “CREATE CORRECT FINAL RETURN ADDRESS 
2333 004434 012737 177777 004674 MOV #- 1, 35$ * INITIALIZE FLAG AS NEGATIVE ONE 
2334 004442 005077 174634 CLR @LREGU “CLEAR UPPER 6 BITS OF MAP REG 
3335 004446 012777 020000 174624 MOV #20000 aL REGL “LOAD 4K BASE INTO MAP REGISTER 
2336 004454 012701 100100 MOV 100100,R “LOAD BITS TO SELECT PAR 4, OFFSET 100 
337 004460 012700 150000 MOV 4150000 RO “LOAD BITS TO SELECT PAR 6. OFFSET 2k 
38 004464 012737 000277 172350 MOV #277 ,.KIPARG *START WITH PHYSICAL 6K 
2339 004472 013737 001256 172354 MOV LOWEST.KIPAR6 :LOAD PAR 6 WITH MAP REG’S ADDR 
0 004500 012737 004552 001106 MOV #2$,$LPERR “SET LOOP ON ERROR POINTER TO 2$ 
2341 004506 005037 001330 1$: CLR PCPUER “CLEAR TIME OUT FLAG 
2342 004512 062737 010000 001310 ADD #10000,UBM24L :FORM EXPECTED LMA FOR POSSIBLE USE 
3 004520 BNE 15$ “BRANCH AROUND UBM24U INCREMENT IF NOT ZERO 
2344 004522 00 001312 INC UBM24U > INCREMENT UPPER LOCATION 
2345 004526 012737 000020 001326 15$: MOV #20, CPUEXP SEXPECTING A UNIBUS TIME OUT DURING TEST 
2346 004534 013710 001364 MOV DATA, (RO) THIS LOAD WILL TIME OUT WHEN YOU HAVE REACHED THE TOP 
2347 :OF MEMORY IT SELECTS. PAR 6 WHICH WILL PUT ADDR <XXX1>0000 ON THE UNIBUS. THE X'S WILL 
2348 :SELECT THE LOWEST USABLE MAPPING REGISTER. THE DEFAULT CASE IS 00010000. SELECTING 
2350 004540 005037 001326 CLR CPUEXP :CLEAR CPUEXP - DON'T EXPECT TRAPS FOR A WHILE 
2351 004544 005737 001330 TST PCPUER *SEE IF THERE WAS MAIN MEMORY 
2352 004550 001050 BNE 3$ “BRANCH IF NO MAIN MEMORY FROM UNIBUS 
3353 004552 012737 000040 001326 2%: MOV #NEXMEM, CPUEXP ; POSSIBLE CACHE NON-EXISTENT MEMORY 
2354 004560 011103 MOV (R1) 23 ;READ TEST LOCATION VIA FASTBUS 
2355 004562 005037 001326 CLR CPUEXP AR CPUEXP - DON'T EXPECT TRAPS FOR A WHILE 
2356 004566 022737 000040 001330 CMP #NEXMEM, PCPUER “WAS THIS CACHE NON-EXISTENT MEMORY 
2357 004574 001436 BEQ 3$ “BRANCH IF NON-EXISTEN NT MEMORY 
2358 004576 011002 MOV (RO) .R2 sREAD TEST LOCATION VIA UNIBUS MAP 
2359 004600 020203 CMP R2,R3 ; COMPAR E TEST DATA R2=MAP DATA, R3=FASTBUS DATA 
602 001433 BEQ 3$ HIF IT uA THE SAME 

2361 004604 004737 005076 JSR PC, CHKLMA *GO CHECK FOR 11/24 WITH UB MEMORY 
2362 004610 177736 177734 .WORD LMAHI,LMALOW ;ADDRESSES OF LMA REGISTERS 
2363 004614 000426 BR “RETURN IS HERE IF OK 
2364 004616 032777 004000 174312 BIT ¥B1T11,aSUR SEE If THIS 1S AN 11/24 WITH UB MEMORY ONLY 
2365 004624 001403 BEQ F 

004626 004737 005000 JSR PC PTMP2 “60 PREPARE STMP2 FOR ERROR CALL 
2367 004632 02 BR “BRANCH TO CALL ERROR 

004634 011037 001200 25$: MOV (R0) $TMP2 “GET RECEIVED DATA FOR ERROR CALL 

004640 010337 001176 26$: MOV STMP1 GET EXPECTED DATA FOR ERROR CALL 
2370 004644 011646 MOV Reps yr (Sh) ;PUT AN EXTRA RETURN ADDRESS ON STACK FOR POSSIBLE LOOP 
2371 004646 013737 001310 005764 MOV ered “LOAD LOWER 16 BITS OF ADDRESS FOR ERROR CALL 
2372 004654 013737 001312 005766 MOV 4U, SEADRES®2 | LOAD UPPER 6 BITS OF ADDRESS FOR ERROR CALL 
3373 004662 012737 000001 004312 MOV SET FLAG SHOWING AN ERROR RETURN 
2374 004670 000207 RTS 40 “RETURN TO THE ERROR 
2375 004672 005227 3$: INC (PC) + i INCREMENT ONE TIME ENTRANCE FLAG 
2376 006674 177777 35$: -WORD <1 “FLAG 
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2377 004676 
2378 004700 
2379 004706 
2380 004710 
2381 004714 
2382 eg F3 
2383 004730 
2384 004736 
2385 004740 
2386 004744 
2387 004752 
2388 004754 
2389 004760 
2390 004766 
2391 004774 
2392 004776 
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001356 


001364 
001364 
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BNE 5$ 

MOV KIPARG .RSIZE 
BR 

ADD #2,SP 

ADD #100, DATA 

ADD #100. KIPARG 
ADD #10060, @LREGL 
BNE 1$ 

INC 


173.8 
CMP 473 aL REGU 


INC DATA 

BIC #177700,DATA 
BIS #300,DATA 
TST (SP)+ 

RTS PC 


SEQUENCE 


;BRANCH IF I'VE ay HERE BEFORE 

: SAVE UPPER LIMIT OF MEMORY 

ANCH OVER ERROR LOOP CORRECTION 

‘POP emcees RETURN rs OFF STACK 
DD aK To ; TTERN FOR NEXT LOAD 


Brsossy 


TER 
R NOT ZERO 
TS OF MAP REG 

HAS BEEN PASSED 


START W WITH TTERN 
+ aimee EXPOSING FINAL RETURN ADDRESS 
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SE AROUT INE, £0 OBTAIN CONTENTS OF LMA CONTENTS LOCATION 


239 .SBTTL SUBROUTINE TO OBTAIN CONTENTS OF LMA CONTENTS LOCATION 
2394 005000 013705 177734 PTMP2: MOV LMALOW,R5 sMOVE LMA LOW REGISTER CONTENTS TO R5 FOR SHIFTING 
2395 005004 072507 177772 ASH 4-6 R5 “SHIFT PHYSICAL UPPER 3 BITS TO THE RIGHT 6 PLACES 
2396 005010 042705 176177 BIC #176177,R5 > CLEAR ALL BUT THE THREE SHIFTED BITS 
| 2397 005014 010546 MOV —-RS5 = ( SP) ;SAVE THIS NUMBER ON THE STACK 
3398 005016 013705 177736 MOV LMAHI,R5 ‘MOVE LMA HIGH REGISTER CONTENTS TO RS FOR SHIFTING 
2399 005022 072527 000012 ASH #10.,R5 ‘SHIFT LOWER 6 BITS TO THE LEFT 10 PLACES 
2400 00506 062605 ADD (SP)+,R5 :ADD PREV OUSLY SHIFTED CONTENTS TO Pas 
2401 005030 013746 172346 MOV KIPARS,-(SP)  :SAV TAC 
2402 005034 010537 172346 MOV RS .KIPAR3 ‘MOVE OBTAINED SOAR VALUE TO PAR3 
2403 005040 013737 177734 001200 MOV LMALOW, $TMP “GET ADDRESS MAP CREATED 
005046 042737 100000 001200 BIC #B1T15.$TMP “CLEAR BIT 15 AND 
2405 005054 052737 060000 001200 BIS #60000, $TMP “SET BITS 13 & 14 TO PUT PAR PAGE 3 IN STMP2 
3406 005062 017737 174112 001200 MOV a$TMP2,$TMP =MOVE CONTENTS OF LOCATION TO $TMP2 
2407 005070 012637 172346 MOV (SP)+,KIPAR “RESTORE PAR3 
2408 005074 000207 RTS PC EXIT 
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; 09 .SBTTL SUBROUTINE TO CHECK FOR 11/24 WITH UBMEMORY 
410 5 LP RAAAAAAAAAAAAAAEAAEAAAAAAAAAAAAAAAAARAEAARAREAAEHEAAAAEEEAEEEE 
411 :* 
41 ve THIS SUBROUTINE CHECKS THE SWITCH REGISTER TO SEE IF USER 
41 :* THIS IS AN 11/24 CPU WITH UNIBUS MEMORY ONLY. IF NO 
2414 :* EXECUTED WITH THE RETURN BEING UPDATED TO THE 2ND L 
2415 :* JSR CALL. IF IT IS, THE LMA HIGH REGISTER 1S CHECKED F 
416 :* TO THE CONTENTS OF SUMED TO BE PRELOADED 
417 ® THE UPPER 6 BITS OF T 
2418 ie LOGIC), IF NOT, EXIT T 
2419 :* CHECKED. IT 1S ASSUME 
2420 :* PHYSICAL ADDRESS. IT 
2421 :* EQUAL, EXECUTES A RETURN WITHOUT T 
g3e ;* OTHERWISE IT IS FUDGED. 
‘*€ 
$3 *; REAEEAAEEAEAEEARAAEARAREREEEEAEAEAEARAERAAEARARAARARAAREARAREAAAAEEAETAEAAESE 
2425 005076 017637 000000 005134 CHKLMA: MOV (SP), 10% :MOVE LMAHI ADDRESS TO ACCESS TO 10S 
26 005104 062716 000002 ADD #2, (SP) ZADVANCE TO NEXT PARAMETER 
< 5110 017637 000000 005154 MOV (SP) ,11$ LMALOW ADDRESS TO ACCESS TO 11% 
5116 716 000002 ADD #2. (SP) “CORRECT RETURN OVER P TER 
3128 032777 004000 174006 BIT o51T11 aSUR “SEE IF USER SAYS THIS IS AN 11/24 WITH UB MEMORY 
130 001413 BEQ 1 [BRANCH OUT IF NO 
132 013746 MOV a(PC)+,-(SP)  =MOVE REGISTER CONTENTS TO STACK 
2432 005134 10S: WORD iL SS TO ACCE 
2433 005136 042716 177700 BIC #177700,(SP) :CL ITS (UPPER 6 BITS OF ADDRESS) 
434 005142 001312 CMP UBM24U,(SP)+ :SE AS EXPECT 
2435 005146 001004 BNE 1$ ; FOR 2ND RETURN LOCATION IF NOT 
36 005150 023737 001310 CMP UBM246L.a(PC)+  :SEE I CTED DATA WAS CLOCKED PROPERLY 
2437 005154 118: .WORD 0 [LOCATION FOR ADDRESS TO ACCESS 
2438 005156 001402 BEO 2$ ; H AROUND STACK RETURN FUDGE IF OK 
2439 005160 062716 000002 1$: ADD #2, (SP) “FUDGE RETURN OVER NON-ERROR BRANCH 
2440 005164 000207 2$: RTS PC EXIT 
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441 .SBTTL PRETEST DATA SETUP SUBROUTINE 
ry ERRATA ARERR REREEAEE RAE Hehehe eee 

2443 005166 011600 PRETST: MOV (SP) RO :MOVE RETURN ADDRESS TO RO 

2444 005170 012037 001362 MOV (RO)+,NXTTST “SAVE STARTING ADDRESS OF NEXT TEST FOR ESCAPE ON PAR ERRORS 
2445 005174 012037 001106 MOV (RO)+,$LPERR | ;SET LOOP ON ERROR POINTER TO 20$ IN TEST 

2446 005200 012037 001100 MOV (RO)+,$TSTNM | ;SETUP TEST NUMBER AND CLEAR THE ERROR FLAG 

2447 005204 013777 001100 173726 MOV S$TSTNM,@DISPLAY :DISPLAY TEST NUMBER FOR ALL TO SEE 

2448 005212 010016 MOV RO, (SP) “FUDGE RETURN OVER PARAMETERS 

2449 005214 019037 001104 MOV RO.$LPADR =SET LOOP ON TEST POINTER TO START OF TEST 

2450 005220 012737 000001 001212 MOV #1, $TIMES *RESET ITERATIONS COUNTER TO 1 

2451 005226 000207 RTS PC :RETURN TO BEGIN TEST 
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DISABLE CHECK SUBROUTINE 


245 -SBTTL DISABLE CHECK SUBROUTINE 
245 PLR EERE ATTA A AAA EAE Ree eee 
2454 SPREE TERRE EEE TERETE 
2455 :* 
245 ;* THIS SUBROUTINE CHECKS. THE Ar S OF THE BIT POINTED TO IN FLOATR 
245 :* IN THE LOCATION POINTED TO BY (EITHER S$DDWO OR SDDW1), AND DETER- 
2458 ;* MINES IF THE LOCATION SHOULD BE DISABLED. 
2459 005230 105737 020162 DSABLD: TSTB SENV ‘TEST APT STATUS 
2460 OO eS Re 001411 BEQ $ CH IF NOT APT 
2461 005236 105737 020163 TSTB SENVM ;DOES APT SAY io SIZE 
2462 005242 Aoggne BPL 1 CH TO EXIT +4 NOT 
2463 005244 033715 005774 BIT FLOATR, (R5) TEST tt STATUS 
2464 005250 001403 BEQ CH IF IT D BE DISABLED 
465 005252 011537 001176 MOV (R5) ,STMP1 “MOVE CONTENTS OF DEVICE DESCRIPTOR WORD TO STMP1 
2466 005256 000402 BR 2$ ‘BRANCH OVER RETURN CORRECTION 
2467 005260 062716 000002 1$: ADD #2, (SP) ay at a FUDGE RETURN OVER ERROR CALL 
2468 005264 000207 2$: RTS PC sRETURN WITHOUT CORRECTING STACK SO ERROR WILi CALL 
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ENABLE CHECK SUBROUTINE 


2469 -SBTTL ENABLE CHECK SUBROUTINE 

2470 See e eee iIS SUBROUTINE CHECKS THE STATUS OF THE BIT POINTED TO | 

2471 s@ THIS SUBROUTINE CHECKS THE STATUS OF THE BIT POINTED TO IN FLOATR 

$078 ¢* IN THE LOCATION POINTED TO BY R5 (EITHER $DDWO OR $DDW1), AND DETER- 

247 Mh ar be IF THE LOCATION SHOULD BE ENABLED. 

2474 005266 105737 020162 ENABLD: TSTB SENV ‘TEST APT STATUS 

2475 005272 001411 BEQ 1$ CH IF NOT APT 

2476 ttt 105737 020163 TSTB SENVM “DOES APT SAY TO SIZE 

2477 005300 100006 BPL 1$ ;BRANCH TO EXIT IF NOT 

2478 005302 033715 005774 BIT FLOATR,(R5) ; TEST DISABLE STATUS 

2479 005306 001003 BNE ; CH IF IT SHOULD BE ENABLED 

2480 005310 011537 001176 MOV (R5) ,$TMP1 sMOVE CONTENTS OF DEVICE DESCRIPTOR WORD TO STMP1 
2481 005314 000402 BR ; CH OVER RETURN CORRECTION 

2482 005316 062716 000002 1$: ADD #2, (SP) ; VANILLA FUDGE RETURN OVER ERROR C 

2483 005322 000207 2$: RTS PC ;RETURN WITHOUT CORRECTING STACK SO ERROR WILL CALL 
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CACHE TEST IN SUBROUTINE FORM 





| 2684 .SBTTL CACHE TEST IN SUBROUTINE FORM 
2485 SRA EERE AREER 
486 .ENABL LSB 
2487 005324 042737 000001 177572 CASHSR: BIC #81T00,MMRO : TURN OFF RELOCATION 
2488 005332 053737 000400 177746 BIS #1108, CACHE - :FLUSH CACHE TO INVALIDATE ALL CACHE LOCATIONS 
2489 005340 032737 010000 177746 1S: BIT #B1T12, CACHE UALT TILL DONE 
490 005346 001374 BNE 1$ 
2491 005350 013702 000000 MOV 0,R2 s SAVE ADDR. 4? CONTENTS 
2492 005354 005037 000000 CLR 0 -0'S TO MA N MEMORY LOCATION 0. 
2493 005360 005003 CLR R3 : CLEAR ERROR F LAG 
2494 005362 012704 177777 MOV #=1,R4 L1'S TOR 
2495 005366 013700 000114 MOV CTRAPV,RO SAVE VECTORS 
2496 005372 013701 000116 MOV CTRAPS,R1 
2497 005376 012737 005524 000114 MOV 3s CTRAPV sSETUP FOR CACHE TRAP 
2498 005404 012737 000340 000116 MOV #340, CTRAPS 
2499 005412 112737 000002 177750 MOVB  #2,MAINT :HODO ALLOWS CACHE UPDATES AND CLOCKING OF 
2500 ARITY INFO TO INTERRUPT LOGIC ONLY DURING 
2501 ‘THE DESTINATION ACCESS oof AN INSTRUCTION. 
2502 005420 012737 000015 177746 MOV #15, CACHE *NO UCB SO AS TO WRITE CACHE STORES 
2503 005426 005737 040000 TST 40060 : UPDATE CACHE LOCATION 6000" WITH CORRECT 
2505 005432 052737 000100 177746 BIS #B1T06, CACHE ‘PARITY STORE. WRONG PARITY DATA TO LO & HI BYTE 
2507 005440 005737 000000 TST 0 READ UPDATE TO CACHE LOCATION 0000: 
508 “WRITE WRONG PARITY TO HI/LO BYTE PARITY STORES 
2509 005444 042737 000100 177746 BIC #B1T06, CACHE :DISABLE WWPD 
2510 005452 005037 177744 CLR CMPE *CLEAR CMPE AND PARITY DETECT LOGIC 
2511 005456 142737 BICB (PC)+,a(PC)+ ALLOW INT & ENABLE LOW CACHE (1ST 
2512 005460 000000 CASH1: .WORD 0 *LOCATION LOADED BY THE TEST 
2513 005462 177746 .WORD (CACHE ADDRESS OF CACHE LOCATION 
122727 CMPB (PC)+, (PC)+ WHICH TEST 
2515 005466 000002 WORD 2 “TEST 2 IS TESTED FOR 
2516 005470 000000 CASH2: .WORD 0 = THIS LOCATION LOADED BY THE TEST -DPMOO2 
2517 005472 001405 BEQ 2$ *GO TO 2ND TEST SECTION IF OND TEST EXECUTING 
2518 005474 005737 000000 TST 0 “READ HIT LO & HI BYTE PARITY CHECK GENERATORS 
“WILL DETECT WRONG PARITY AND THE PARITY 
“ERROR WILL BE CLOCKED TO INTERRUPT LOGIC 
2521 005500 000240 NOP “NEEDED FOR 11/44 
2522 005502 005203 INC R3 > INDICATE THAT TRAP DID NOT OCCUR 
2523 005504 000410 BR 4$ ;BRANCH OVER STACK CORRECTION AND 2ND TEST SECTION 
2524 005506 052737 000200 177746 2%: BIS ie CACHE -ALLOW FOR ABORT 
2525 005514 011304 MOV (R3) ,R4 “READ HIT LO & HI BYTE PARITY CHECK GENERATORS WILL 
2526 <DETECT WRONG PARITY USING HODO AND SOURCE MODE FOR READING LOCATION 0 WILL 
2527 : INHIBIT PARITY ERROR FROM BEING CLOCKED TO INTERRUPT LOGIC. HOWEVER, THE PARITY 
2528 “ERROR SIGNAL WILL CAUSE THE ABORT SIGNAL TO BE ASSERTED. THE ABORT SIGNAL WILL 
2529 “BECAUSE CMPE<15> TO BE SET. THIS INSTRUCTION SHOULD 
2530 005516 000240 NOP sNEEDED IN AN 11/44 TO ALLOW 1 INSTRUCTION BEFORE ABORT 
2531 005520 005203 INC R3 ;INDICATE NO TRAP OCCURED 
2532 005522 000401 BR 4$ CH OVER STACK CORRECTION 
2533 005524 022626 3$: CMP (R6)+, (R6)+ ; READJUST STACK DUE TO INTERRUPT 
2534 003526 005037 177744 4$: CLR C AR CMPE 
2535 005532 012737 001015 177746 MOV #1015, CACHE “DISABLE CACHE 
3% 005540 105037 177750 CLRB MAINT : DISABLE MAINT MODE 
2537 005544 010237 000000 MOV Re 0 -RESTORE LOCATION 0 
2538 005 010037 000114 MOV RO, CTRAPV “RESTORE CACHE INTERRUPT VECTORS 
2539 005554 010137 000116 MOV R1,CTRAPS 
2540 005560 052737 000400 177746 BIS #B1T08, CACHE sBEFORE LEAVING TEST FLUSH CACHE TO ELIMINATE EFFECTS OF wwP 
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CKKUAEO 11/24/44 UBI MAP 
CACHE TEST IN SUBROUTINE FORM 


2541 005566 032737 010000 
2542 005574 001374 
25435 005576 000207 


2544 

2545 

2546 

2547 005600 011504 

2548 005602 043704 005776 
2549 005 010410 

2550 005610 011504 

2551 005612 043704 006000 
S226 005616 020410 

255 5620 001402 

2554 005622 062716 000002 
2555 005626 000207 
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177746 5$: BIT #B1T12,CACHE sWAIT TILL DONE 
BNE 5$ 
RTS PC sEXIT 


-DSABL LSB 
.SBTTL SUBROUTINE TO PREPARE AND CHECK DATA PATTERN 


seveeehan Nene Otnc en ssweretensennans tess Ssanenansenesaetesewseee 


ChKPAT: “sts (R5) ,R4 s;MOVE NEXT COUNT PATTERN TO R 


MASK1,R4 “USE MASK1 PRE-LOADED FOR PROPER LOADING 
MOV R4, (RO) “LOAD MAP REGISTER WITH COUNT PATTERN 
MOV (R5) RG “RELOAD PATTERN 
BIC MASK2,R4 ‘USE THE 2ND MASK TO CONSTRUCT EXPECTED VALUE 
CMP R4, (RO) * COMPARE EX XPECTED WITH RECEIVED 
BEQ “BRANCH IF DATA IS OK 
ADD #2, (SP) : FUDGE RETURN TO SHOW ERROR 
1$: RTS PC EXIT 


rm ee ce ee a eee” 
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Ore 


<a 


ze 
MM NMTrrnrr a 


c 
$22 
o-— 


MMMM) 
POO SIS 
WHO OOon 


2592 730 
2593 005732 
2594 005734 
2595 005736 


1/24/44 UBI MAP 
CTAL NUMBER FROM THE TTY 


000004 000002 


177770 


MACRO M1113 


: *BINARY 


:*CALL: 
;* 
;* 


$RDOCT: 


1$: 


2$: 


3$: 


SHIOCT: 


Aes este 
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SEQUENCE 


.SBTTL READ AN OCTAL NUMBER FROM THE TTY 
WITTTITITILILILE LLL LLL LLL LLL LLL LLL LLL 

SRTHIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY, CHANGE IT TO 
Y AND PUT THE NUMBER ON THE STACK. 


RDOCT 
MOV 


(SP)+,LOCATION 


(SP)+,RO 

R1 

R2 

(RO) +,-(SP) 
3$ 

R1 

R2 

R1 

R2 

R1 


R 
#177770, (SP) 
+, Ri 


;READ AN OCTAL NUMBER 
: POP THE INPUTED NUMBER OFF STACK 
sHIGH ORDER BITS ARE IN SHIOCT 


oa ROOM FOR THE 


AVE R 
;READ THE OCTAL NUMBER 
GET ADDRESS OF 1ST CHARACTER 


AR R2 
;MOVE eS TO STACK 
: IF gh EX 
TCLEAR THE CARR Y BIT 
7SHIFT MSB TO THE CARRY BIT 
; SHIF O UPPER EIVER 





EI 

NARY EQUI VALENT 

SET THE BINARY EQUIVALENT TO LOWER RECEIVER 
BRANCH 


BACK 
7CLEAN TERMINATOR FROM STACK 
;SAVE THE RESULT 





RETURN 
;HIGH ORDER BITS GO HERE 
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“CKKUAEO 11/24/44 UBI MA MACRO M1113 11=JAN-82 
DATA TABLES AND ASCII STRINGS USED IN THIS DIAGNOSTIC 


2596 .SBTTL 
2597 005740 005744 006120 DTMS:  .WORD 
2598 005744 001266 001270 001272 DTMSG: .WORD 
2599 005760 000000 CHARCT: .WORD 
2600 005762 000000 EXTOUT: .WORD 
2601 005764 000000 000077 EADRES: .WORD 
2602 005770 000000 000077 EADRS2: .WORD 
2603 of 000000 FLOATR: .WORD 
2604 005776 000000 MASK1: .WOR 
2605 006000 000000 MASK2: .WORD 
2606 006002 SPECST: .BLKW 
2607 900006 ~RADIX 
2608 006102 17777 PATRNS: .WORD 
2609 006104 . WORD 
2610 006106 125252 - WORD 
2611 006110 052525 . WORD 
sore 006112 031463 . WORD 
2613 006114 007417 . WORD 
2614 006116 000377 « WORD 
2615 000010 ~RADIX 
2616 006120 000 000 000 DFMSG: .BYTE 
2617 006125 200 125 116 VA: .ASCIZ 
2618 006161 123 127 122 NEWSWR: .ASCIZ 
2619 006174 040 113 200 ND: .ASCIZ 


i 5 
11:27 PAGE 52 


FL 


SEQUENCE 


DATA TABLES AND ASCII STRINGS USED IN THIS DIAGNOSTIC 
DTMSG, DFMSG POINT "9 DATA VARIABLE ADDRESSES 
MMRLOW ,MARHI .UBRL OW. UBRAI $ TESTN.O cibass VARIABLES TO BE PRINTED 


REGIST 
TER > 
T TEST DOW'S STATUS 
T WITH THE 1ST BIT-MASK 
T WITH THE 2ND BIT-MASK 


BINARY REPRESENTATION 


Oo O- VN LOOOCOCCOoO 
Ox 
= 
m 

‘ 
° 
> 
J 
m 
LJ 
@ 


vu-* 
. 
© 
Li 
@ 
ran 
“4 
w 
[| 
| ae 
m 
® 


GROUPS OF 4 BITS SET 


LEE 

— — 
~— OE - 

— = ad 

—> 

=o 

—)d 

==00 

~~ = O— 

—_ — 2 CD 


AL 
“ALL NUMBERS ARE TO BE PRINTED IN OCTAL 
BUS MEMORY AVAILABLE = ? 


¥-VAOC 
« @e 
wr 
mn 
~ 
S 
=» 
oO 
x 
— 
oS 
© 
oO 
~ 
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DATA TABLES AND ASCII STRINGS USED IN THIS DIAGNOSTIC 
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SEQUENCE 


2620 006200 200 104 111 CPUMSG: .ASCIZ <CRLF>?DIAGNOSTIC HAS DETERMINED THAT CPU _IS AN 11/ 4?<CRLF> 
2621 006261 101 103 103 TOMSG: .ASCII ?ACCESSING MEMORY THROUGH THE FOLLOWING REGISTER(S)?<CRLF> 
¢ 006344 103 101 125 eASCIZ ?CAUSED TIME OUTS (THEY MIGHT BE UNEXPECTED) ?7<CRLF> 

26235 006421 124 110 105 NOMORE: .ASCII ?THERE ARE STILL MORE ERRORS BUT WILL NOT BE TYPED. EACH?<CRLF> 
2624 006512 105 122 122 -ASCIZ ?ERROR WILL BE COUNTED AND NUMBER Aa AT THE ee 
2625 006607 124 110 111 BADCPU: .ASCII ?THIS DIAGNOSTIC IS DESIGNED FOR AN 11/24 OR 11/44.?<CRLF> 
2626 006672 104 111 101 “ASCIZ 2DJAGNOSTIC DOES NOT INTERPRET CPU AS EITHER ONE. ?<CRLF> 
2627 006754 111 123 040 MRQUES: .ASCIZ 71S THERE A MAP REGISTER MODULE IN THIS CPU (Y OR <CR>)? 
2628 007043 040 200 000 GMRMD1: .ASCIZ 7? ?<CRLF> ;PLACE FOR USER INPUT CHARACTER 

00704 104 111 101 GMRMOD: .ASCIZ 2DIAGNOSTIC CHECKS THIS MODULE - INSERT os ee oer 
2650 007140 000 CPUTYP: ye ;LOCATION TO STORE THE CPU T 
2632 RESERVE REMAINING AREA FOR PERMANENT PATCHES 

;THIS AREA MAY GO BEYOND 10000. USE ONLY THAT AREA TO 7776. 

2634 007142 000000 000000 000000 BATCH: . 0,0,0. 0.0,0.0.0.0.0,0,9.0.0,0,0,0.0.0.0.0.0.0.0,0,0.0.0.0.0.0.0 
2635 007242 000000 000000 000000 WORD 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


2 re ee eee ee ee ee ee 
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SEQUENCE 






2636 .SBTTL PRE-TESTING SETUP 
2637 PERERA EE Ree 
2638 “START OF TEST CODE 
2639 SERRE RARER ER Ke 
2640 
2641 010000 .=10000 :START TEST CODE AT ADDRESS 10000 (2k) 
2642 010000 012737 000340 177776 START: MOV “LOCK OUT ALL INTERRUPTS 
2643 010006 012700 001100 MOV #SCM “FIRST LOCATION TO BE CLEARED 
2644 010012 012701 000021 MOV FeSTKSoBEMTAG/2: R1;:MOVE LOOP COUNTER TO R1 
2645 010016 005020 11$: CLR (RO) + EAR MEMORY LOCATION 
2646 010020 077102 $0B at 11$ CT 1 AND BRANCH IF NOT DONE YET 
2647 010022 005037 020150 CLR $PASS “INITIALIZE PASS COUNT 
2648 010026 012706 001100 MOV #STACK,SP ;INITILAIZE STACK 
2649 010032 012700 010054 MOV #158 RO VE ADDRESS OF VECTORS TO RO 
2650 010036 012701 MOV #5 :DO 
2651 010042 012030 12$: MOV (ROD +. @(RO) + “MOVE VECTOR TO LOCATION 
2652 010044 012730 000340 MOV #340,a(RO)+ :mOvE PRIORITY 7 TO NEXT LOCATION 
2653 010050 077104 SOB R1 1158 BRANCH BACK IF NOT DONE YET 
2654 010052 000417 BR 14 VER DATA WORDS 
2655 010054 020266 000020 000022 138: WORD $SCOPE . EDO abonh ie MORRO. MTVEC ,EMTVEC +2, STRAP, TRAPVE 
2656 010074 000036 023610 000024 WORD EC .PWRVEC+2,$RTRN, TBITVE, TBITVE+2 
2657 010112 013737 021644 021636 14$: MOV TENDCT SEOPCT -PROGRAM COUNTER 
2658 010120 005037 001214 CLR $ESCAPE AR THE ESCAPE ON ERROR ADDRESS 
2659 010124 112737 000001 001113 MOVB  #1,$ERMAX ONE ERROR PER TEST 
2660 010132 012737 000002 022070 MOV #RT1, SRTRN *SET $RTRN TO AN RTI 
2661 010140 012737 010166 000010 MOV r16$. RESVEC “MOVE 16$ of ALLURE? To TO RESVEC 
2662 010146 012746 000340 MOV #340,-(SP) “MOVE PRIOR TACK 
2663 010152 012746 010160 V #15$.-(SP) “MOVE 15$ (SUCCESS) 70 THE STACK 
2664 0 RTT :TRY TO DO AN RTT 
2665 0 012737 000006 022070 15$: MOV #RIT, SRTRN “RTT IS PEGAL=<SET SRTRN TO AN RIT 
2666 010166 012706 001100 16$: MOV #STACK, “RESET STACK IF NECESSARY 
2667 010172 012737 000012 000010 MOV mmEsvets2, RESVEC: ;RESET TRAP CATCHER 
2668 010200 005037 022076 CLR $TBIT [CLEAR "'T’’ BIT SWITCH 
2669 010204 012737 010700 001104 MOV eS a ee +SE TUP $SLPADR 
2670 010212 012737 010700 001106 MOV #TST142.$LPERR : SETUP SLPERR 
2671 010220 005227 177777 INC #-1 FIRST TIME? 
2672 010224 001017 BNE 18s < BRANCH IF NOT 
2673 010226 104401 010234 TYPE 17$ ; TYPE THE TEST TITLE 
2674 010232 000414 BR 8$ H OVER ASCI2Z 
2675 010234 103 113 113 17$: -ASCIZ 'CKKUAE 11/24/44 UBI MAP" 
2677 010264 005737 020150 18$: TST SPASS 318 THIS THE FIRST PASS? 
2678 010270 140 BNE H I 
2679 010272 013746 000004 MOV 4,-(SP) «SAVE TIMEOUT VECTOR 
010276 012737 010470 000004 MOV #23,4 :TIMEQUTS TO 104$ 
2681 010304 013746 000006 MOV 6,-(SP) “SAVE PS VECTOR 
2682 010310 012737 000340 000006 MOV #340,6 :PRIORITY 
2683 010316 000007 MFPT “DETERMINE PROCESSOR TYPE 
2684 010320 110037 007140 MOVB RO, CPUTYP :MOVE THE CPU NUMBER TO CPUTYP 
2685 010324 105337 007140 DECB TYP MAKE THE 11/44 VALUE ZERO 
010330 001021 BNE i$ :BRANCH TO NEXT TEST IF NOT AN 11/44 
2687 010332 022737 177777 177570 CMP #-1,177570 ; SEE IF SSWR IS TO BE USED 
010340 001004 BNE 1000$ CH TO SETUP FOR HARDWARE SwR 
010342 012737 000176 001136 MOV #176, SWR SET UP FOR SSWR 
010350 000403 BR 101 : CH 
2691 010352 012737 177570 001136 1000$: MOV #177570, SWR “SET UP FOR HARDWARE SWITCH REGISTER 
2692 010360 112737 000064 006255 1010$: MOVB + CPUMSG+5S “MOVE ASCII 4 TO LOCATION IN MESSAGE T 
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PRE-TESTING SETUP 

















2693 010366 104401 006200 TYPE CPUMSG ;TYPE THE CPU TYPE HEADER 
2694 010372 000446 BR NTI 
2695 010374 122737 000002 007140 1S: CMPB = #2, CPUTYP ‘SEE IF THIS L$ AN 11/26 
2696 010402 001034 BNE 35 “BRANCH TO FATAL ERROR ME SSAGE PRINTING IF NOT 
2697 010404 012737 000176 001136 MOV SWR, SWR * SETUP SOF TWARE SWITCH REGIST 2 
2698 010412 112737 000062 006255 MOVB Abt CPUMSG+55 :MOVE ASCII 2 TO LOCATION IN HE SSAGE TO PRINT 
2699 010420 104401 006200 TYPE CPUMSG ‘TYPE THE CPU TYPE HEADER 
2700 010404 105737 020163 TSTB SENVI 318 APT SIZING 
2701 010430 100427 BM] é ANCH IF NO 
5702 010432 012737 000176 001136 MOV #S$SSWR,SWR “SETUP SOFTWARE SWITCH REGISTER 
2703 010440 005737 000176 TST SSSWR “SEE IF SWR I$ NON-ZERO 
704 010444 001021 BNE x3 ‘BRANCH IF 
2705 010446 104401 006161 TYPE  ,NEWSWR ‘TYPE: ‘'SWR INPUT ° 
010452 104410 * RDOCT *GO READ USER OCTAL INPUT 
2707 010454 012637 000176 MOV (SP)+,$SSWR “MOVE NEW CONTENTS TO THE SOFTWARE SWR LOCATION 
010460 001013 . BNE x3 “BRANCH IF NON-ZERO 
2709 010462 005237 000176 INC $SSWR “MAKE SWR NON-ZERO FOR POSSIBLE NEXT RUN 
01 000410 BR 6$ : CONT INUE 
2711 010470 062706 000004 2$: ADD #4,SP “CLEAN STACK AFTER TIMEOUT 
2712 010474 005237 020142 3$: INC SMSGTY ‘TELL APT THIS IS A FATAL ERROR 
2713 010500 104401 006607 4$: TYPE  ,BADCPU i TYPE T MESSAGE 
2714 010504 HALT FATAL ERROR ~ THIS DIAGNOSTIC IS WRITTEN 
15 ;FOR 11/24 AND 11/44 PROCESSORS ONLY 
2716 010506 774 BR 4$ NUE 
2717 010510 012637 000006 6$: MOV (SP)+,6 OUT PS 
2718 010514 012637 000004 MOV (SP)+ RESTORE TIMEOUT VECTOR 
2719 010520 013746 172346 MOV KIPARS,-(SP) VE PAR3 
2720 010524 012737 000400 172346 MOV #400,KIP ; START WITH ADDRESS 40000 
2721 010532 012704 060000 MOV #60000 ,R4 P 
2722 010536 012705 040222 MOV #40222,R5 
2723 010542 010514 7$: MOV 5, (R4) 
2724 010544 062705 010000 ADD #1 ~RS 
2725 010550 062737 000100 172346 ADD #100, KIPAR3 
3726 010556 022737 007600 172346 CMP #7600 ,KIPAR3 
2727 010564 001 BNE 
2728 010566 012637 172346 MOV (SP) +, KIPAR3 
2729 010572 105737 020163 8$: TSTB. 3s SENVM 
2730 010576 BPL LOOP H IF NOT 
1 01 012737 020164 001136 MOV #SSWREG, SWR :USE APT SWITCH REGISTER 
2 01 012737 003372 000250 LOOP: MOV AMAT “RAVE Y MANAGEMENT TRAP SERVICE ROUTINE ADDRESS 
2733 010614 012737 340 000252 MOV #340, MMVEC+ SET PRIORITY SEVEN 
2734 010622 012737 003222 000004 MOV #CPUER ERRVEC :LOAD CPU TRAP SERVICE ROUTINE ADDR 
3735 010630 012737 000340 000006 MOV #340, ERRVEC+2 :SET PRIORITY SEVEN 
2736 010636 005037 001326 CLR CPU xP :NOT EXPECTING 
2737 010642 005037 177572 CLR :START IN 16 BIT 
010646 005037 172516 CLR “DISABLE MAP AND 22-BIT MAPPING 
010652 012700 177777 MOV 1,R0 “NEGATIVE ONE USED TO INITIALIZE FLAGS 
2740 010656 010037 003224 MOV RO, CPFLAG * INITIALIZE FLAGS 
1 010662 010037 003032 MOV RO. TOFLAG * INITIALIZE FLAGS 
2742 010666 010037 003374 MOV RO. MMFLAG “INITIALIZE FLAGS : 
2743 010672 010037 177766 MOV RO. CPUERR “CLEAR CPU ERROR REGISTER 
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TEST # 1 = MAP REGISTER RESPONSE TEST 



















2753 _SBITL TEST # 1 = MAP REGISTER RESPONSE TEST 
SAAR AREA ARERR AA REAEAAERAARARAERAERAE REET 
“*TEST 1 MAP REGISTER RESPONSE TEST 
;* 
i THIS TEST IS USED TO ENSURE THAT ALL THE UNIBUS MAP REGISTERS 
se CAN BE REFERENCED UNDER PROGRAM CONTROL, WITHOUT TIMING 
“i THE ADDRESSES OF ANY MAP REGISTERS THAT TIME OUT WILL BE REPORTED 
“i AND, AT THE END OF THE TEST, A SUMMARY OF THOSE REGISTERS WILL 
:* BE GIVEN. 
** 
SURO IIS EIS ISIS IIOUIUIIDUIUIIIUIIOIIIDI IT nnn ttn nt tn 
010676 TST1: 
010676 000004 SCOPE 
010700 004737 005166 JSR PC sPRETST :GO SET UP PRETEST DATA 
010704 011122 011042 000001 WORD 20$,1 “DATA USED BY PRETST 
2754 010712 012737 003030 000004 MOV rings ERRVEC ; LOAD ERRVEC WITH ROUTINE ADDRESS 
2755 010720 105737 007140 TSTB “TEST TO SEE WHICH CPU IS RUNNING THIS DIAGNOSTIC 
756 010 001435 BEQ gout CH AROUND MAP REGISTER EXISTENCE CHECK IF 11/44 
2757 010726 005037 001320 CLR ERRCNT “CLEAR THE E COUNTER 
2758 010732 013702 170200 1$: MOV MAPLO,R2 “READ FIRST MAP REGISTER TO R2 
2759 010736 005737 001320 TST ERRCNT *SEE IF THERE WERE ANY ERRORS 
2760 010742 001426 BEQ 3$ “BRANCH TO CHECK THEM ALL IF NONE, THEY ARE IN THIS 11/24 
2761 010744 105737 020162 TSTB = SENV sARE WE RUNNING UNDER APT 
2762 010750 100004 BPL $ “BRANCH IF NOT 
2763 010752 005237 020142 INC SMSGTY *TELL APT THIS IS A FATAL ERROR 
2764 010756 000000 HALT SHALT = FATAL E 
2765 010760 000764 BR 1$ “TRY AGAIN - RESTART REQUESTED 
2766 0610762 104401 006754 2$: TYPE  ,MRQUES *ASK USER IF THERE ARE MAP REGISTERS IN THIS 11/24 
2767 010766 104406 RDCHR :GO READ USER INPUT 
2768 010770 112637 007043 MOVB §§ (SP)+.GMRMD1 § :MOVE THE CHARACTER TO THE PRINTING LOCATION 
2769 010774 104401 007043 TYPE : HARACTER 
770 011000 122737 000131 007043 CMPBSsd# " Y, GMRMD1 
771 011006 001404 BEQ 3$ : H AROUND FATAL MESSAGE IF EQUAL TO A ‘Y* 
772 011010 104401 007046 TYPE  §,GMRMOD ; TYPE: ‘BEFORE, RESRUNAING THIS MODULE - INSERT 
2774 011014 HALT [FATAL ERROR - WAIT FOR USER ACTION 
775 011016 000745 BR 1$ *TRY AGAIN - RESTART REQUESTED 
2776 011020 012700 170200 3$: MOV #MAPLO RO ‘PUT FIRST MAP REGISTER ADDR IN RO 
2777 011024 012703 0001 MOV #100-R5 ;TEST ALL MAP REGISTERS 
2778 011030 005037 001320 CLR 5208" CLE COUNTER 
2779 011034 012737 011042 001106 MOV #2 $. SLPERR “MAKE SURE $LPERR IS POINTING AT 20S 
2780 011042 011002 20$: MOV “READ MAP REGISTERS TO R2 
2781 011044 032777 001000 170064 BIT pS eS aswR ; SEE If LOOP ON ERROR IS SET 
2782 011052 001403 BEQ H AROUND SETUP IF NOT 
2783 011054 005737 001320 TST ERRCNT ‘SEE IF AN ERROR OCCURED 
2784 011060 001370 BNE ‘BRANCH BACK IF SO 
2785 011062 005720 4$: TST (RO) + ZINCREMENT RO TO NEXT REGISTER LOCATION 
2786 011064 077312 SOB R3,20$ ALL OF THEM 
2787 011066 012737 003222 000004 MOV #CRUER -ERRVEC :RESTORE CPU TRAP SERVICE ROUTINE ADDRESS TO ERRVEC 
2788 011074 012737 011020 001106 MOV #3$, SLPERR “MOVE 3$ TO LOOP ON ERROR FOR ERROR +4 BELOW 
2789 011102 005737 001320 TST “SEE IF THERE WERE ANY ERRORS 
2790 011106 001405 BEOQ TST *:GO TO NEXT TEST IF NO ERRORS 
2791 011110 005337 001110 DEC SERTTL “DON'T COUNT SUMMARY AS AN ADDITIONAL ERROR 
2792 011114 005337 001320 DEC ERRCNT “DECREMENT ERRCNT FOR SAME R 
2793 011120 104004 ERROR +4 “SUMMARY OF MAP REGISTERS THAT TIMED OUT ON READ 
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2808 


011122 
011122 
011124 
011130 
2809 011136 
2810 011142 
2811 011150 
2812 011154 
28135 011160 
2814 011166 
2815 011172 
2816 011176 
2817 011202 
2818 011206 
2819 011210 
2820 011212 
2821 011216 
2822 011220 
2823 011224 
2824 011226 
2825 011232 
2826 011240 
2827 011242 
2828 011246 
2829 
2830 011252 
2831 011254 
2832 011260 
28335 011262 
2834 011264 
2835 011272 
2836 011274 
2837 011302 
2838 011304 
2839 011306 
2840 011312 
2841 011314 
Sace 011320 
2843 011322 
2844 011330 
2845 011334 
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SRTEST 2 BIT PATTERN AND CLEAR TEST OF 40 MAP REGISTERS 
** 
:* THIS TEST WILL RUN 7 BIT PATTERNS THROUGH BOTH WORDS OF 40 UNIBUS 
st MAP REGISTER LOCATIONS MAPLOO = MAPL37, USING TWO MAJOR PASSES. 
:* IT WILL TEST T R TS ON THE FIRST PASS T E 
ze 6 BITS ON THE §S COND THIS TEST WILL MAKE SURE THE REGISTER CAN 
:* CLEAR, AND THEN RUN 6 BIT PATTERNS THROUGH EACH UNIBUS MAP REGISTER 
ie IF THe DATA PATTERN RECEIVED DOES NOT MATCH THE EXPECTED PATTERN, 
:* THEN THE MAP REGISTER ADDRESS, DATA RECEIVED PATTERN LOADED, 
oe PATTERN EXPECTED ARE REPORTED. AT T OF E H OF THE TWO MAJOR 
:* PASSES, A SUMMARY OF ALL ERRORS IS 61V VER MeO T aay CAN DETERMINE 
:* IF THE ERROR IS BIT SENSITIVE OR REGISTER SENSITIVE. 
** 
MUTT ITI titi tii iti titi 
TST2: 
SCOPE 
JSR PC pRETST. :GO SET UP PRETEST DATA 
WORD S13. 20$,2 ;DATA USED BY PRETST 
CLR ERR NT ‘CLEAR THE ERROR COUNT LOCATION 
1$: MOV #20$,$LPERR *SETUP 20$ AS LOOP ON ERROR INDICATOR (IF NOT ALREADY) 
MOV #MAPLOO,RO “MOVE STARTING ADDRESS OF LOWER 16 BITS REGISTER TO RO 
CLR MASK1 “MOVE *O* TO MASK1 
MOV #1,MASK2 “MOVE 1° TO MASK2 
2$: MOV #40,R1 “DO 40 REGISTERS LOOP COUNTER 
3$: MOV #7,R2 :MOVE PATTERN LOOP COUNTER TO R2 
MOV #PATRNS RS “MOVE PATTERN START TO RS 
4$: JSR PC, CHKPAT :GO CHECK PATTERN 
BR 7$ *RETURN IS PUERE IF DATA IS OK 
MOV (RO) .R3 *READ BAD MAP REGISTER DATA INTO R3 
MOV (RS) .$T “MOVE PATTERN TO $TMPO 
MOV (R5),-(SP) [MOVE PATTERN TO STACK FOR SUBROUTINE USE 
JSR PC ,PATEXT *GO SET DATA INTO PATTOR AND PATAND 
MOV R3.-(SP) = MOVE DATA TO STACK FOR SUBROUTINE USE 
JSR PC. DATEXT : SUBROUTINE TO LOAD DATAOR AND DATAND 
BIC MASK $T “FORM INPUT PATTERN FOR ERROR PRINTING 
MOV att} “PUT VIRTUAL ADDRESS ON STACK FOR ADREXT SUBROUTINE 
MOV SO ean? -(SP) | :PUT PAR CONTENTS ON STACK FOR ADREXT SUBROUTINE 
JSR PC ADREXT *GO SET DATA IN THE DS OF ADDROR AND ADRAND 
“AND FORM A PHYSICAL 22-BIT ADDRESS 
BR S$ *BRANCH OVER LOOP ON ERROR SECTI 
20$: JSR PC, CHKPAT 7GO TO $ TINE TO CHECK PATTERN 
BR 6$ “RETURN IS HERE IF DATA IS OK 
S$: ERROR +203 ‘THE BIT PATTERN THROUGH THE MAP REGISTERS FAILED 
6$: BIT #BIT9. aSWR =SEE IF LOOP ON ERROR IS SET 
BNE *LOOP BACK IF SO 
MOV #3$.S$LPERR “MOVE 3$ TO LOOP ON ERROR INDICATOR 
7$: TST (R554 “POINT RS TO NEXT PATTERN 
SOB R2,4$ ; DE CREMENT LOOP COUNTER 
ADD f POINT TO NEXT MAP REGISTER UNDER TEST 
SOB R1,3$ *DECREMENT LOOP COUNTER AND 
TST ERRCNT “SEE IF THERE WERE ANY ERRORS 
BEQ ‘BRANCH IF NO ERRORS 
MOV #1$,S$LPERR “MOVE 1$ TO LOOP ON ERROR FOR ERROR +6 OR +7 BELOW 
DEC SERTTL ‘SUMMATION ERROR NOT COUNTED AS ANOTHER ERROR 
DEC ERRCNT “SAME AS ABOVE 
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# 3 = DUAL ADDRESS "LOADS & READS MAP REG'S 





















2876 .SBTTL TEST # 3 = DUAL ADDRESS LOADS & READS MAP REG'S 
TOR RRRABABBABABBABAABAABABRAABAAAAAEAELAEASLAEALE SERRE RARER RES RAS ERR R SRR SSS SC 
“*TEST 3 DUAL ADDRESS LOADS & READS MAP REG'S 
*?® 
7 THIS TEST, ENSURES THAT ONL Y ONE UNIBUS MAP REGISTER IS LOADED 
:* DURING A ‘MOY #DATA,MAPREG’’ INSTRUCTION. ALL MAP REGISTERS 
:* ARE CLEARED AND ONE REGISTER at A TIME, STARTING WITH MAPLOO, 
:* 1S LOADED WITH A -1. N, ALL MAP REGISTERS AR 
7 STARTING WITH MAPH37, AND VERIFIED TO BE ZERO. ANY REGISTER 
se THAT IS NOT ZERO AND WHOSE UNIBUS ADDRESS DOES NOT MATCH THAT 
:* OF THE REGISTER UNDER TEST IS REPORTED TO BE IN ERROR. AT THE 
:* END OF THE TEST A SUMMARY OF ALL DUALED REGISTERS IS GIVEN. 
*®* 
eet Ittiitiitit iii iti titi 
011444 TST3: 
011444 000 SCOPE 
011446 004737 005166 JSR PC PRETST :G0 SET UP PRETEST DATA 
011452 011762 011616 000003 WORD 4,20$,3 “DATA USED BY PRETST 
2877 011460 042737 000001 177572 BIC 1h PARO ‘TURN OFF MEMORY MANAGE GEMENT 
2878 011466 012700 170200 MOV 00,R0 ‘LOAD ADDRESS OF MAPLOO I 
2879 011472 012702 177700 MOV #177700.R2 “SET UP XOR DATA 
2880 011476 012701 170400 1$: MOV #MAPH37+2,R1  :PUT ADDRESS OF MAPH37+2 IN R1 
3881 011502 012737 000077 001174 MOV #77,$TMPO ‘SET UP TEST PATTERN IN $T 
2882 011510 737 002772 JSR PC, CLRMAP “CLEAR MAP REGISTERS FOR TEST 
2883 011514 012703 000100 MOV #100,R3 COUNTER FOR TESTING 40 REGISTERS, 2 WORDS EACH 
2884 011520 00 17251 CLR MMR “CLEAR MMR 
2885 011524 012704 000100 2$: MOV #100,R4 “SET UP LOOP COUNTER FOR CHECKING 40 REGISTERS, 2 WORDS EACH 
2886 011530 074237 001174 YOR R2,$TMPO “REVERSE BIT STATES OF $TMPO IN BITS 7 TO 15 
2887 011534 013710 001174 MOV $TMPO, (RO) ‘LOAD MAP REGISTER UNDER TEST 
2888 011540 012701 170400 MOV #MAPHS7+2,R1~ =PUT ADDRESS OF MAPH37+2 IN R1 
2889 011544 005741 3$: TST ~(R1) *SEE IF MAP REGISTER IS ZERO 
2890 011546 001435 BEOQ 7$ *GO SEE IF MORE REGISTERS TO TEST IF = 0 
2891 011550 005011 CLR (R1) “CLEAR THE FAILED LOCATION 
2892 011552 020100 CMP R1,R0 “SEE IF NON-ZERO REGISTER ADDRESS MATCHES ADDRESS LOADED 
2893 011554 001432 BEOQ 7$ °GO SEE IF MORE REGISTERS TO TEST IF 
2894 011556 012137 001202 MOV (R1)+,$TMP3 “MOVE FAULTY DATA ARE R1 FOR POSSIBLE LOOP 
2895 011562 013746 0012 MOV STMP3.-(SP) “MOVE FAULTY DATA TO STACK FOR 
289% 011566 013746 172350 MOV KIPARG.-(SP) § :MOVE PAR4 TO STACK FOR ‘USE 
2897 011572 737 0036 JSR PC ADREXT ‘GO SET DATA IN THE 4 WORDS OF ADDROR AND ADRAND 
2898 ‘AND FORM A PHYSICAL 22-B1T ADDRESS 
2899 011576 013746 172356 MOV K IPAR7,=(SP) :PUT PAR ON STACK FOR DATEXT SUBROUTINE USE 
2900 011602 010146 MOV R1,-(SP) VIRTUAL ADDRESS ON STACK FOR DATEXT SUBROUTINE USE 
2901 011604 004737 003624 JSR PC‘ DATEXT : DATAOR AND DATAND 
2902 011610 010037 005770 MOV RO.EADRS2 “MOVE ADDRESS IN RO TO EADRS2 FOR ERROR CALL 
2903 011614 000405 BR H L RROR SECTION 
2904 011616 013710 001174 20$: MOV STMPO, (RO) UNDER TEST 
2905 011622 005711 TST (R1) ER IS 2E 
2906 011624 001402 BEQ 6$ LOOP ON ERROR IS STILL SET IF ZERO 
2907 011626 005011 CLR (R1) OCATI 
2908 011630 104202 5$: ERROR +202 “DUAL ADDRESSING ERROR IN THE UNIBUS MAP 
2909 011632 032777 001000 167276 6$: BIT #61709. aswR “SEE IF LOOP ON ERROR IS SET 
2910 011640 001366 BNE “BRANCH BACK IF SO 
2911 011642 077440 7$: S0B RL, 3$ BRANCH IF MORE REGISTERS TO CHECK 
912 011644 005020 CLR (RO) + AR THE REGISTER JUST TESTED AND POINT TO NEXT REGISTER 
2913 011646 00 DEC R3 R 
2914 011650 001325 BNE 2$ “BRANCH 
2915 011652 005737 001320 TST ERRCNT “SEE IF THERE WERE AN 
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$318 011656 ites ; BEQ RELC22 
917 011660 001110 DEC SERTTL 
2918 011664 398337 001320 DEC ERRCNT 
2919 011670 104005 ERROR +5 


SEQUENCE 68 


;G0 i? NEXT SECTION | F NO ERRORS 
:DON'T COUNT ERROR +5 AS ANOTHER ERROR 


;SAME AS ABOV 
: SUMMARY OF DUAL ADDRESSING ERRORS ON LOADING MAP REGISTERS 
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# 3 - DUAL ADDRESS LOADS & READS MAP RE 
2920 011672 104414 RELC22: TBITR :RESTORE THE T BIT TO ITS CONDITION 
2921 : BEFORE THE LAST TEST 
2982 011674 012700 077406 MOV #77406,RO ‘MAKE THE KERNEL I-SPACE PAGES ALL 
29 "4K, UPWARD EXPANDABLE READ/WRITE 
2924 011700 012701 172300 MOV #KIPDRO,R1 _ SMOVE ADDRESS OF KIPDRO TO R 
2925 011704 012702 000010 MOV e ;LOAD 8 PDR'S 
2926 011710 010021 1$: MOV RO. (R1)+ KERNEL 1=SPACE PAGE X KIPDRK 
2927 011712 077202 SOB R2,1$ : SUBT RACT 1 AND BRANCH BACK IF NOT DONE 
2928 011714 005000 CLR AR R 
2929 011716 012701 172340 MOV #KIPARO,R1 “MOVE ADDRESS OF KIPARO TO R1 
2930 011722 012702 000006 MOV #6,R2 “LOAD FIRST 6 PAR'S 
2931 011726 010021 2$: MOV RO. (R1)+ “MAP KIPARX TO NEXT PHYSICAL PAGE 
2932 011730 062700 000200 ADD #200,R0 “MAP RO TO NEXT PA 
2933 011734 077204 SOB R2,2 ‘SUBTRACT 1 AND BRANCH BACK IF NOT DONE 
2934 011736 012721 170000 MOV #170000,(R1)+ :MAP KIPAR6 TO UNIBUS 
2935 011742 012721 177600 MOV #177600.(R1)+ | :MAP KIPAR7 TO I/O PAGE 
29%6 011746 012737 000001 177572 MOV #B1T0,MMRO ‘ENABLE FULL 18-BIT MAPPING 
2937 011754 012737 000020 172516 MOV #B1T4.MMR3 “ENABLE 22-BIT MAPPING 
2938 :* AT THIS POINT 22-BIT RELOCATION FROM MEMORY MANAGEMENT 
2939 * 1S ENABLED, WITH THE KIP D TO PHYSICAL 0-24K. 

2940 ie KIPAR6 IS MAPPED TO THE UNIBUS (170000) AND 
2941 :* KIPAR7 IS MAPPED TO THE I/O PAGE (177600). 
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i 
2952 .SBTTL TEST # 4 = MAP REGISTER ADDRESS DECODE TEST 
ee ee a a eS 
| “*TEST 4 MAP REGISTER ADDRESS DECODE TEST 
Zz 
| ‘i THIS TEST TRIES TO VERIFY THAT NONE OF THE INPUTS TO THE ADDRESS 
:* DECODER FOR THE UNIBUS MAP aE GISTERS IS STUCK TRUE. KIPAR6 IS 
| :* SET UP TO HOLD 177702 AND R4 HAS THE VIRTUAL ADDRESS TO SELECT 
8 MAPLOO, THROUGH KIPAR6. THE TEST THEN CHANGES ONE BIT AT A TIME 
:* IN PARG SO THAT IT SHOULD NEVER REFERENCE MAPLOO. IF IT DOES, AN 
:* ERROR IS REPORTED. 
** 
| *: REARS RAREKEEREAREEAEREREGTKEEKAKKAEKEASE 
| 011762 TST4: 
011762 000004 SCOPE 
011764 004737 005166 JSR C -PRETST :GO SET UP PRETEST DATA 
011770 012242 012126 000004 . WORD TSS, 20$,4 “DATA USED BY PRETST 
2953 011776 013737 172354 001200 V Ti pake STMP2 SAVE KIPARG FOR REST ORAT 1 ON LATER 
2954 012004 012737 177702 172354 MOV #177702 .KIPARG =PUT MAP REGISTER 0 ADDR IN PAR6 
2955 012012 012702 175254 MOV #175254_R “PATTERN FOR TEST ING. 
2956 012016 010237 170200 MOV R2,MAPLO *LOAD MAP REGISTER 0 
2957 012022 012700 004000 MOV #81T11.RO *SET BIT 11 TO FLOAT THROUGH PAR6 
2958 012026 012704 140000 MOV #140000,R4 7V TO SELECT PAR6 
2959 012032 074037 172354 1$: XOR RO. KIPAR6 “CHANGE A BIT OF MAP REGISTER 0°S ADDR 
2960 012036 010046 MOV RO.=(SP) : SA K 
2961 012040 013746 172354 MOV KIPAR6,=(SP) 
2962 012044 012737 000020 001326 MOV #TIMOUT , CPUEXP 
2963 012052 011401 MOV (R4),R1 PAR6 
2964 012054 005037 001326 CLR CPUEXP LEAR CPIUE DON'T EXPECT TRAPS FOR A WHILE 
2965 012060 020201 CMP R2,R1 SEE IF DATA FETCHED MATCHES PATTERN 
2966 012062 001047 BNE 4 H IF NOT 
3967 012064 012737 000020 001326 MOV #TIMOUT , CPUEXP TIME OUT ON UNIBUS 
2968 012072 005014 CLR (R4) Tl 
2969 012074 005037 001326 CLR CPUEXP CL MPECT TRAPS FOR A WHILE 
2970 012100 005737 170200 TST MAPLO SEE If MAP REGISTER 0 GOT CLEARED 
2971 012104 001036 BNE 4$ ; H IF MAP REGISTER NOT ZERO 
2972 012106 010237 170200 MOV R2,MAPLO 
2973 012112 010446 MOV R4.~(SP) PUT VIR TUAL ADDRESS ON STACK FOR ADREXT SUBROUTINE USE 
2974 012114 013746 172354 MOV KIPAR6,-(SP) | :PUT PAR ON STACK FOR ADREXT SUBROUTINE USE 
2975 012120 004737 003674 JSR PC ADREXT :60 SET DATA IN THE 4 WORDS OF ADDROR AND ADRAND 
2976 012124 000416 BR ALL ERROR 
2977 012126 012737 000020 001326 20$: #MOV STIMOUT.CPUEXP : NG CPU TIME OUT ON UNIBUS 
2978 012134 011401 MOV (R4) RI : L AR 
2979 012136 005037 001326 CLR CPUEXP AR CPIUEXP T EXPECT TRAPS FOR A WHILE 
2980 012142 020201 CMP R2,R1 : SEE IF DATA FETCHED MATCHES PATTERN 
2981 012144 001012 BNE H IF NOT SAME 
2982 012146 005014 CLR (R4) =TRY TO CLEAR THIS LOCATION 
2983 012150 005737 170200 TST MAPLO “SEE IF MAP REGISTER 0 GOT CLEARED 
2984 012154 001006 _ BNE 3$ “BRANCH IF MAP REGISTER NOT ZERO 
2985 012156 010237 170200 MOV R2.MAPLO : RESTORE 
2986 012162 104207 2$: ERROR + 07 “GOT TO MAPLO WITH ONE GIT DIFFERENT IN ADDRESS FROM 1777020 
2987 012164 012737 000077 005766 MOV 8 EADRES*2 RESTORE 77 TO EADRES+2 
3988 012172 032777 001000 166736 3%: BIT weit 9,aSwR “SEE IF LOOP ON ERROR IS SET 
2989 012200 001352 BNE 20$ “BRANCH BACK K TO LOOP IF S 
2990 012202 012737 000020 001326 4$: MOV #TIMOUT,CPUEXP EXPECTING CPU TIME OUT ON UNIBUS 
2991 012210 010114 MOV R1, (R4) “RELOAD THE LOCAT 
2992 012212 005037 001326 CLR CPUEXP “CLEAR CPIUEXP = DON'T EXPECT TRAPS FOR A WHILE 
2993 012216 012637 172354 5$: MOV (SP)+,KIPAR6  :RESTORE KIPAR6 
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2994 01 $ 2 012600 

2995 012224 074037 1723554 

2996 012230 onesie 

2997 aS 32 001277 

2998 012234 013737 001200 172354 6$: 


(S$ 
RO 
RO 
1$ 
$T 


A 
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P)+.RO 
JKIPAR6 


MP2 ,KIPAR6 


SEQUENCE 
sRESTORE RO 
;RESTORE BIT TO ORIGINAL STATUS 
;RIGHT SHIFT ONE PLACE 
;GO CONTINUE TEST IF BIT NOT SHIFTED OUT YET 
RESTORE KIPAR6 
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3011 .SBTTL TEST # 5 = DATA PATH, UNIBUS TO MAIN MEMORY 
“REE ARERAREAREEEARAAKEARAAARARARAEREREERAEEAEEEEEKETETEE 
STEST 5 DATA PATH, UNIBUS TO MAIN MEMORY 
vt 
** THIS TEST RUNS A COUNT PATTERN THROUGH A MEMORY LOCATION VIA 
rn THE UNIBUS. THE UNIBUS MAP IS LEFT OFF DURING THIS TEST SO 
te THAT THE ADDRESS IS NOT RELOCATED. THE TEST TRIES TO LOAD THE 
te PATTERN INTO ADDRESS 040000 (8k) BUT IF THE MAP JUMPERS ARE 
| :* SET NOT TO RESPOND TO THAT ADDRESS THE NEXT 4K 13 TRIED UNTIL 
| :* THE TEST GETS TO MAIN MEMORY FROM THE UNIBUS. IF THIS TEST 
| ie DETERMINES THAT IT CANNOT GET TO MAIN MEMORY FROM THE UNIBUS 
| :* IT REPORTS THE FACT AND SKIPS THE NEXT TEST FOR VERIFICATION. 
| :* 
| 2 : ee 
012242 Ts 
012242 000004 SCOPE 
012244 004737 005166 JSR C PRE Ist, :GO SET UP PRETEST DATA 
012250 012630 012262 000005 WORD 136, 508.5 “DATA USED BY PRETST 
3012 012256 004737 002772 JSR CLRMAP ‘CLEAR ALL WAP REGISTERS 
3013 012262 012704 000035 20$: MOV :D0 3 35 ACCESSE 
3014 012266 012737 170400 172354 MOV wR ans “START WITH ADDRESS 8k FROM UNIBUS 
3015 012274 012737 170400 001210 MOV #170600, $TMP6 ‘move. IT TO $TMP6 ALSO 
3016 012302 005037 001330 2$: CLR PCPUER “CLEAR ERROR CONDITION LOCATION 
3017 012306 012737 000020 001326 MOV #TIMOUT,CPUEXP :TIMEOUTS MIGHT OCCUR IN THIS TEST. 
3018 012314 013700 140000 MOV 140000,R0 *TRY TO READ ADDRESS POINTED TO BY PAR6 
3019 012320 005037 001326 CLR CPUEXP “CLEAR CPUEXP - NO TIMEOUTS FOR A WHILE 
3020 012324 005737 001330 TST PCPUER *SEE IF READ OF ADDRESS TIMED OuT 
3021 012330 001411 BEQ 4$ : H IF REFERENCE WAS GOOD 
3022 012332 062737 000200 172354 38: ADD #200, KIPAR6 TRY BLOCK OF MEMORY 
3023 012340 062737 000200 001210 ADD #200. $TMP6 ADD TO STMP6 ALSO 
3024 012346 077423 508 RG, 28 “SUBTRACT 1 FROM R4 AND BRANCH IF NOT DONE 
3025 012350 104010 ERROR +10 *NO UNIBUS ADDRESSES RESPOND 
3026 012352 000574 BR *BRANCH TO SIZE _JUPER SECTION 
3027 012354 013737 172354 172352 4$: MOV *PUT PAR6 INTO PARS 
3028 012362 013737 001210 001206 MOV :D0 SAME TRANSFER 
3029 012370 042737 170000 172352 BIC ‘MAKE PARS A NON UNIBUS ADDRESS 
3030 012376 042737 170000 001206 BIC [CLEAR SAME BITS 
3031 012404 012737 173214 120000 MOV [PUT RANDOM NUMBER INTO TEST LOCATION BY FAST BUS 
3032 012412 012737 000020 001326 MOV *TIMEOQUTS MIGHT OCCUR IN THIS TEST. 
3033 012420 013701 140000 MOV 140000, ;READ TEST LOCATION BY UNIBUS 
3034 012424 005037 001326 CLR CPUEXP” CPUEXP - NO TIMEOUTS FOR A WHILE 
3035 012430 022701 173214 CMP #173214 ,R1 “SEE IF DATA WAS READ PROPERLY 
3036 012434 001406 BEQ 5$ “DATA OKAY NOW VERIFY DATA PATH 
3037 012436 020001 | CMP RO,R1 “SEE IF DATA CHANGED | FROM FIRST READ 
3038 012440 001004 BNE 5$ “BRANCH AROUND NEXT TRY IF SO 
3039 012442 062737 000200 172354 ADD #200, KIPAR6 “TRY NEXT 4K BLOCK OF MEMORY 
3040 012450 077464 SOB R4,2$ “BRANCH BACK TO TRY NEXT 4K BLOCK 
3041 012452 012701 006102 5$: MOV #PATRNS .R1 “LOAD ADDRESS OF BIT PATTERNS IN R1 
3042 012456 012702 140000 MOV #140000,R2 > LOAD VIRTUAL ADDRESS INTO R2 
3043 012462 012703 000007 MOV #7.R “DO 7 PATTERNS 
3044 012466 012737 000020 001326 MOV #TIMOUT , CPUEXP : TIMEOUTS MIGHT OCCUR IN THIS TEST. 
3045 012474 011112 6$: MOV (R1), (Re) “LOAD COUNT INTO TEST LOCATION VIA U.B. 
3046 0124676 021112 CMP (R1), (R2) ‘COMPARE COUNT WITH DATA READ 
3047 012500 001426 BEQ 10$ “BRANCH IF DATA MATCHES 
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MAP 
‘ EST # 5 = DATA PATH, UNIBUS TO MAIN ME 


3048 012502 011137 001174 MOV (R1),STMPO 
3049 012506 011237 001176 MOV (R2) , STP 

3050 012512 011246 MOV ),=(SP) 

3051 012514 004737 003624 JSR TEXT 

3052 012520 011146 MOV (Ri), =(SP 

309 012522 004737 003650 JSR ‘ PATEXT 

54 012526 012737 012536 001106 MOV #7$,$LPERR 

3055 012534 000403 BR 

3056 012536 011112 7$: MOV Rt), (R2) 

3057 012540 021112 CMP (Rl), (Ro) 

3058 012542 001401 BEQ 

3059 012546 104204 8$: ERROR 504 

3060 012546 032777 001000 166362 9$: BIT #BIT9,aSwR 

3061 012554 001370 BNE 7$ 

3062 012556 062701 000002 10$: ADD 4a RI 

3063 012562 077334 S0B 

3064 012564 005037 001326 CLR PUEX a 

3065 012570 005737 001320 TST ERRENT 

3066 012574 001405 BEQ 11$ 

3067 012576 005337 001110 DEC SERTTL 

3068 012602 005337 001320 DEC ERRCNT 

3069 012606 104011 ERROR +11 

3070 012610 023737 001206 172352 11S: CMP STMPS ,KIPARS 

3071 012616 001404 Q TST6 

3072 012620 104030 ERROR +30 

3073 012622 013737 001206 172352 V STMPS ,KIPARS 


SEQUENCE 


ATTERN TO STMPO 
TERN TO STMP1 
FOR Geel tee eee USE 


D DATAOR 
ACK FOR PATEXT SUBROUTINE USE 
PATTOR AND PATAND 

NTER TO 61$ 


RROR SECTION 
Rows y VIA U.B. 












IBUS DATA PATH 
IS SET 







;BRANCH IF NO Ss 
;DON'*T COUNT ERROR +11 AS ANOTHER ERROR 
AS ABOVE 


SUMMARY OF ERRORS ON THE UNIBUS DATA PATH 
;MAKE phew CONTAINS EXPECTED CONTENTS 


ce H 
:KIP PARS NOT LOADED PROPERLY - SKIPPING =" TEST 
ZRESET KIPARS FOR EXECUTION OF NEXT TEST 
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3087 - SBTTL TEST # 6 = MAP DOESN'T RELOCATE IF NOT ENABLED 
'MPRARAEBBASESASLALASESALASLERR REALE RARER SERRE RRR RRR RRR RRR RARER SRS SS 
TRTEST 6 MAP DOESN'T RELOCATE IF NOT ENABLED 
* 
;* THIS TEST VERIFIES i THE ant 27 MAP ae A. RELOCATE IF BITS 
:* OF MMR35 IS NOT SET. THE TEST ASSUMES T THE PREVIOUS TEST HAS 
7 RUN SUCCESSFULLY AND LEFT KIPARG POINTING. TO THE FIRST UNIBUS” 
:* MAPPING a bd HAT THE UNIBUS MAP WILL RESPOND TO GREATER 
he THAN OR EQUAL TO MAPREG #2. KIPARS IS ALSO POINTING TO THE 
s*@ SAME a7 tn BASE ADDRESS EXCEPT IT POINTS OVER THE Andy A 
:* THE ts my HEN SETS ONE BIT IN EACH A.L.U. OF THE UNIBUS MAP 
7 AND TRIES TO REFERENCE MAIN MEMORY OVER THE UNIBUS. SINCE THE 
:* IS NOT ENABLED THE LOAD WILL GO TO MAIN MEMORY UNRELOCATED. 
-* 
*: REE ERAKEAAEREEEAEEEAAEKEERAEEERERERAREREREREEERESTHEEAEES 
012630 TST6: 
3088 012632 7 005166 :GO SET UP PRETEST DATA 
012636 012744 012710 000006 ;DATA USED BY PRETST 
012644 052737 000001 177572 MEMORY MANAGEMENT BACK ON 
3091 012652 013700 172354 “PUT UNIBUS AD %% OF MAP REGISTER IN RO 
3092 012656 072027 177773 ;RIGHT SHIFT RO 5 PLACES 
3093 01 042700 177400 :CLEAR UPPER BYTE 
3094 O12 042737 177000 172352 SMAKE KIPARS ACCESS THE FAST BUS 
3095 012674 012720 021042 7SET BOTTOM BIT IN EACH ALU 
3096 012700 012710 000042 SET BOTTOM BIT IN EAC 
3097 012704 5037 120000 :CLEAR TEST LOCATION VIA FAST BUS 
3098 012710 012737 000020 001326 208: ; TIMEOUTS MIGHT OCCUR IN THIS TEST. 
3099 012716 012737 043207 140000 ;LOAD TEST LOCATION VIA UNIBUS THIS L 
3100 sRELOCATED BY THE UNIBUS MAP, 
3101 012724 005037 001326 zCL CPUE TIMEOUTS FOR A WHILE 
3102 012730 013703 12 sREAD TEST LOCATION VIA FAST BUS 
3103 012734 022703 043207 ; SEE = DATA MATCHES 
3104 012740 00140 H IF DATA GOOD 
3105 012742 104012 “MAP RELOCATED WHEN NOT ENABLED 





ewe ae coment eee 


SEQUENCE 
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DETERMINATION OF FIRST USEABLE MAP REGISTER 




















3106 _SBTTL DETERMINATION OF FIRST USEABLE MAP REGISTER 
3107 SERRE ATTRA 
3108 :* 
3109 tt THIS TEST DETERMINES alt SETTING OF THE JUMPERS ON THE UNIBUS 
3110 :* MAP WHICH ALLOW THE MA P TO RESPOND TO THOSE ADDRESSES BETWEEN 
3111 ie THE WUMPER RANGE THE DEFAULT SETTING ALLOWS THE MAP TO RESPOND 
3112 * TO ADDRESSES §60000 - 757776 ON THE UNIBUS. IF THE JUMPERS ARE 
3113 ie NOT SET IN THEIR DEFAULT POSITION AN INFORMATIONAL MESSAGE IS GIVEN. 
3114 ;* >>>>> NOTE <<< <<< <<< 
3115 :* THIS IS THE FIRST TEST IN WHICH THE UNIBUS MAP IS TURNED ON. 
*®* 
3117 . *: ee RARER EERE EEA AEEEEEEEEEEREEEEERREEKERKKEEE 
3118 012744 012705 020226 S1ZEJ0: MOV #$DDWO,RS :PUT ADDRESS OF $DDWO IN R5 
3119 012750 012700 170200 MOV HMAPLO,RO {LOAD ADDRESS OF FIRST MAP REGISTER IN RO 
3120 012754 012701 000040 MOV :D0 40 REGISTER 
3121 012760 012702 006002 MOV AM R2 SET ni TO BEGINING OF SPECIAL STACK 
3122 012764 012720 020000 1$ MOV 0000,(RO)+  :LOAD 4K INTO LOWER 168 ITS AND 
3123 012770 005020 CLR *CLEAR THE UPPER is. 
3124 012772 00502 CLR :C 
3125 012774 077105 SOB *BRANC 
3126 012776 012703 006002 MOV :R 
3127 013002 052737 000040 172516 BIS :T 
3128 013010 052737 000001 177572 BIS : 
3129 013016 012700 117776 MOV °T 
3130 013022 012737 170000 172350 MOV = LOAD 
3131 013030 012702 125252 MOV : CONS 
3132 013034 012737 177777 001174 MOV :MOVE - 
3133 013042 012737 177777 003532 MOV cTNITIALIZ 
3134 013050 012737 037776 001310 MOV :MOVE TE 
3135 013056 00 001312 CLR CLE 
3136 013062 012737 013070 001106 MOV : RRROR 
3137 013070 012737 000020 001326 2%: MOV ¢ ; CTING CPU TIME OUT ON UNIBUS 
3138 013076 004737 003474 JSR PC, TSTLOC : INE TO SEE IF LOCATION RESPONDS 
3139 013102 000417 BR 33° ; OWEST FOUND 
3140 013104 005037 001326 CLR CPUEXP : 
3141 013110 37 005230 JSR PC .DSABLD : DI 
3142 013114 104214 ERROR +214 : WHEN SHOULD BE ENABLED 
3143 013116 062737 000200 172350 ADD f 00 KIPARG : ISTER 
3144 013124 022737 177400 172350 CMP #177400, KIPARG : INTING JUST BELOW THE 1/0 PAGE 
3145 013132 001356 BNE 2$ ; ER IF NOT 
3146 013134 104013 ERROR +13 ; 
3147 013136 000137 010000 JMP START : AR 
3148 013142 005037 001326 3$: CLR CPUEXP “CLEAR CPUEXP - NO TIMEOUTS FOR A WHILE 
3149 013146 004737 005266 JSR PC ENABLD *GO CHECK TO SEE IF REGISTER SHOULD BE ENABLED 
3150 013152 104213 ERROR +21 *MAP REGISTER ENABLED WHEN SHOULD BE DISABLED 
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UAEO 1 

TION T 

3151 

3152 

3153 

3154 

3155 

3156 

3157 013154 
3158 O13 1$6 
3159 01317 

3160 013176 
3161 013200 
3162 013204 
3163 013212 
3164 013220 
3165 013224 
3166 013232 
3167 013240 
3168 013246 
3169 013254 
3170 013256 
3171 013264 
3172 013272 
3173 013274 
3174 0133500 
3175 013306 
3176 013314 
3177 013316 
3178 013322 
3179 013324 
3180 013332 
3181 013336 
3182 013340 
3183 0133544 
3184 

3185 013350 
3186 013352 
3187 013360 
3188 0133564 
3189 013372 
3190 015400 
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001260 
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~SBTTL SECTION TO DETERMINE NUMBER OF USEABLE MAP REGISTERS 


TOPPERS ESELELALLELEESE SESE ERS RR RE RR RRR RRR RARER RARER RR RRR RRR RRR SSS 


















4) THIS SECTION DETERMINES THE NUMBER OF USEABLE MAP REGISTERS BY ACCOM- 
: PLISHING THE SAME LOCATION ACCESS TEST AS IN THE PREVIOUS SECTION. 
*® 
Tanevatuesesesuntunsenssncrvecnnstseesectarascavecgscaseenecsses 
SIZEJ1: MOV STMPO.MMRLOW §§ ;MOVE REGISTER NUMBER FOUND USEABLE TO MMRLOW 
MOV KIPAR4.LOWEST | :MOVE LOWEST USEABLE REGISTER TO LOWEST 
CMP #170000, LOWEST ;SEE IF LOWEST REGISTER FOUND WAS THE LOWEST 
BEQ 1s CH AROUND SETUP IF IT WAS 
CLR “MAP REGISTER 0 1S LOWEST FOR UNIBUS MEMORY 
MOV YF 0000 UBMLOW :MOVE PAR VALUE OF UB MEMORY TO UBMLOW 
MOV STNP MPO, UBRHI “MOVE REGISTER NUMBER FOUND USEABLE TO UBRHI 
DEC “POINT IT AT HIGHEST UB MEMORY MAP REGISTER 
MOV K KIPAR UBMHI § :MOVE KIPAR4 TO UNIBUS MAP HIGHEST AND 
SUB hit *iBom “SUBTRACT 200 FROM IT TO POINT TO ALAS! USEABLE UBMEM PAGE 
MOV Hi 400,HIGEST :MOVE HIGHEST REGISTER TO HIGEST 
MOV *POINT TO LAST USEABLE MAP REGISTER 
BR "GO TYPE MES OF T INFORMATION 
1$: MOV SS ERR :SET LOOP ON ERROR TO 
ADD #35 $16 PAR4 “MAP TO NEXT REGISTER 
BR 33 :BRANCH OVER POST-TSTLOC CODE 
2$: CLR “CLEAR CPUEXP - DON'T EXPECT TRAPS FOR A WHILE 
ADD a 4 PAR “MAP TO NEXT REGISTER 
CMP 400. KIPAR4 :SEE IF ALL MAP REGISTERS HAVE BEEN TRIED 
BEQ : H IF ALL ARE DONE 
JSR Pt NABLD “GO SEE IF MAP REGISTER SHOULD BE ENABLED 
ERROR +2 iMAP REGISTER ENABLED WHEN SHOULD BE DISASLED 
3$: MOV #TIMOUT.CPUEXP :TIMEOUTS MIGHT OCCUR IN THIS TEST. 
JSR PC, TSTLOC >60 T TO SEE IF IT RE 
BR 2$- [RETURN IS HERE IF 
CLR CPUEXP =CLEAR C 
JSR PC. DSABLD [RETURN IS I 
*REGISTER SHOULD BE DISABLED 
ERROR +214 *MAP REGISTER DISABLED WHEN SHOULD BE ENABLED 
4$: MOV STMPO,MMRHI “MOVE REGISTER FOUND TO MARHI 
DEC MMRHI ; DECREMENT THIS VALUE - IT IS ONE TOO MANY 
MOV KIPARG HI [MOVE FIRST UNUSABLE REGISTER TO HIGEST 
CMP HIGEST #17 200 “SEE IF UPPER JUMPER IS D 
BEQ NOMSG “BRANCH AROUND MESSAGE TYBEOUT IF IT IS DEFAULT 


ce re ree ee ee 





—_— mm a ee ee ee ee ee — 


| 

M 6 
“ CKKUAEO 11/24/44 UBI MA MACRO M1113_ 11-JAN-82 11:27 PAGE 65 SEQUENCE 
DETERMINE UNUSEABLE MAP "REGISTER WINDOW SIZE 


-SBTTL DETERMINE UNUSEABLE MAP REGISTER WINDOW SIZE 


_ 
oO 
_ 











S195 SD EERE REET ERRATA 
3193 se THIS SECTION PERFORMS THE SAME LOCATION ACCESS TEST PREVIOUSLY DONE 
3194 * LOOKING FOR THE FIRST ACCESSIBLE REGIST ER, OR THE UPPER LIMIT. ONCE 
3195 st FOUND, THE SIZE OF THE WINDOW HAS BEEN DETERMINED AND THE MESSAGE 
3196 * TELLING THE USER OF THE SIZE IS SRINTED. 

**® 
3198 *: oc 12: OY HIGEST LEPLOU MOVE UPPER LIMIT 10 UBMLOW LOCAT 
3199 013402 013737 001260 001262 S17EJ2: HIGEST UBML OW MOVE UPPER LIMIT TO UBMLOW LOCATION 
3200 013410 062737 000200 001262 ADD #200, UBML OW ‘POINT UBMLOW TO FIRST USABLE UNIBUS MEM PAGE 
3301 013416 013737 001174 001272 MOV STMPO,UBRLOW #§ :MOVE REGISTER NUMBER TO UBRLOW 
3202 013424 012737 013460 001106 MOV Aes. SLPERR :SET LOOP ON ERROR TO 
3203 013432 000412 BR ‘BRANCH OVER CHECK FOR NON-EXISTENT LOCATION 
3304 013434 062737 000200 172350 1S: ADD 0 KIPAR4 *MAP TO NEXT REGISTER 
3205 013442 022737 177400 172350 CMP 400, KIPARG :SEE IF WE ARE POINTING JUST BELOW THE 1/0 PAGE 
3206 013450 001414 BEQ WE 
3207 013452 004737 005230 JSR Ms DSABLD 
3208 013456 104214 ERROR +2 
3209 013460 012737 000020 001326 2$: MOV #TIMOUT . CPUEXP 
3210 013466 004737 003474 JSR PC, TSTLOC 
3211 013472 000403 BR 3$ 
3312 013474 005037 001326 CLR CPUEXP 
3213 013500 000755 BR ; 
3214 >AT THIS POINT, KIPAR4 PO 
3215 013502 005037 001326 3$: CLR CPUEXP : CLEAR T! WH 
3216 013 004737 005266 JSR PC ENABLD :G0 SEE IF REGISTER SHOULD BE ENABLED 
3317 013512 104213 ERROR +21 [MAP REGISTER ENABLED WHEN SHOULD BE DISABLED 
3218 013514 013732 172350 007276 MOV KIPAR4.BUPWIN :MOVE THIS VALUE TO ‘B'EGINING ‘UP’PER ‘WINDOW 
3219 013522 013737 172350 001204 MOV KIPAR4 , UBMH! :MOVE THIS TO UBMHI ALSO 
3220 013530 013737 0011 001274 MOV $TMPO,UBRHI *MOVE MAP REGISTER POINTER TO UBRHI 
3221 013536 005337 O74 DEC UBRHI :DECREMENT THIS VALUE - IT IS ONE TOO MANY 


~~ 
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3243 01 
3244 013640 
3245 013642 
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TO PRINT THE WINDOW SIZE MESSAGE 
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020150 


033002 
005740 
013574 
006261 
006002 
001223 


001223 
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4$: 


N 6 
11-JAN~82 11:27 PAGE 66 


LT anaes 


SEQUENCE 


.SBTTL ROUTINE TO PRINT THE WINDOW SIZE MESSAGE 


i— a =  °.xt—=8mHt<te, 


SCRLF 
#SPECST,R3 
NOMSG 
, TOMSG 
#SPECST,R3 
-(R3) ,=(SP) 
»SCRLF 
=(R3) 
4$ 
(R3) ,~ (SP) 
,SCRLF 


: SEE IF THIS if FIRST P 
T SECTION 


ASS 
L NOT FIRST PASS 
N DEFAULT =~ FOR INFO ONLY 


TYP MORE <CRL 
‘SEE IF ANY TIMEOUTS OCCURED 
;BRANCH TO NEXT SECTION IF NONE 
Ba 43 TIMEOUTS MESSAGE 


:PUSH THE weeisrer # ONTO THE STACK IN ORDER IT WAS PUSHED 
THE NUMBER IN DECIMAL, LEADING ZEROS SUPPRESSED 





:TY 
TYPE A <CRLF> 


; SEE IF THERE IS ANOTHER REGISTER NUMBER TO PRINT 
CH SETUP IF NONE 
PUSH THIS NUMBER ON = STACK 





;BRANCH BACK TO PRINT IT 
TYPE ONE MORE <CRLF> 
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EGISTERS 


-SBTTL SETUP POINTERS FOR LOWEST AND HIGHEST MAP REGISTERS 


TORRE RERRBERRSBRELESLELELALERA SELES ERR RRR RRR RRR ARRAS ARR RAR ASA A ASS SD 


* SETUP POINTERS TO THE LOWEST AND THE HIGHEST USABLE 
MAPPING REGISTERS TO CONTINUE WITH TEST. 


NOMSG: MOV RS,-(SP) :SAVE R5 
MOV LOWEST ,RS “MOVE PAR DATA TO RS FOR CONVERSION 
BIC #170000,R5 “CLEAR BITS 15 TO 12 
SH #-5.R5 “SHIFT INDICATOR BITS TO THE RIGHT 5 PLACES 
BIS #170200.R5 “FORM ADDRESS 
MOV 5, LRE : SAVE ~ i 
MOV (SP)+,R “RESTORE R 
MOV LREGL.1 REGU “MOVE ADDRESS TO LREGU 
ADD #2, LREGU :POINT TO UPPER 6 BITS OF MAP REG 


er | ee rw ee ee a 
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# 7 = ENSURE THAT THERE IS NO DUAL MAPP] 


3280 _SBTTL TEST # 7 - ENSURE THAT THERE IS NO DUAL MAPPING 
£ ERAAAAAREAREAAAAEAEAAAAAEARAEAAAAAAAEEAAARERAEEEAAAERAEERHEEEEE KES 
| ; TEST 7 ENSURE THAT THERE IS NO DUAL MAPPING 
| ce THIS EST VERIFIES THAT THERE IS NO DUAL MAPPING. IT CLEARS 
:* ALL THE MAP REG STERS EXCEPT THE ONE UNDER TEST, AND LOADS 
| * THAT ONE WITH IF MAP RELOCATION IS ENABLED (AND 
* IN THIS TEST IT IS), SUBROUTINE CLRMAP CLEARS ALL BUT THE 
| :* LOWER 16 BITS OF MAPL1, AND LOADS 20000 THERE. THIS IS SO 
| ot HAT APT, IF CONTROLLING THIS DIAGNOSTIC, CAN STILL EXAMINE 
| ;* THE PROPER LOCATIONS. THE TEST THEN USES A VI DRESS 
:* T THAT MAP REGISTE AND ADD 17776, SO THAT IT SHOULD 
| :* REFERENCE ADDRESS 00057776 (00037776 IF MAPL1 CONTAINS 20000 
| ;* AS PER CONDIT SCRIBED ABOVE). REFERENCE IS MADE T 
:* EACH OF THE REGISTERS AND ANY THAT FETCH THE CORRECT DATA ARE 
:* CHECKED TO. SEE THAT IT WAS THE MAP REGISTE R TEST. IF 
:* NOT, BOTH THE MAP REGISTER UNDER TEST AND THE DUALED REGISTER 
:* ARE REPORTED. 
** 
+ ERRRRERER RARER E REET RATER E TREAT RETR ARR ERRATA 
013712 TST?: 
013712 
013714 737 005166 PC. PRETST :GO SET UP PRETEST DATA 
013720 014616 014260 000007 TST10,208,7 “DATA USED BY PRETST 
3281 013726 005037 172516 MMR 3 =CLEAR MMR3 . 
82 013732 005037 001312 UBM24U “CLEAR THE UPPER EXPECTED LMA LOCATION 
3283 013736 052737 172516 #60 .MMR3 “ENABLE 22-BIT ADDRESSING AND MAP RELOCATION 
013744 737 002772 PC, CLRMAP 7CLEAR ALL MAP REGISTER 
3285 013750 042737 177572 #1 ,.MMRO *TURN OFF MEMORY MANAGEMENT 
013756 005037 001174 STMPO *$TMPO IS USED AS A FLAG IN THIS TEST 
3287 013762 012703 117776 #117776.R3 “SELECT P.A.R. 4 OFFSET OF 17776 
013 013702 001300 LREGL ,R2 *PUT ADDRESS OF LOWEST USABLE MAP REGISTER IN R2 
3289 013772 013700 001256 LOWEST RO “LOAD PAR POINTING TO MAP REGISTER UNDER TEST IN RO 
3290 013776 052737 1 177572 #1,MMRO “MAKE SURE MEMORY MANAGEME 
014 5037 001320 ERRCNT “CLEAR THE ERROR COUNT FOR ERROR 202 BELOW 
3292 014010 013737 001256 172350 100$: LOWEST.KIPARS :PAR OF LOWEST USEABLE MAP REGISTER IS LOADED IN KIPARG 
3393 014016 022702 170204 #MAPLOT.R2 >SEE IF WE ARE POINTING AT MAPL1 
3294 014022 001003 “BRANCH IF NOT 
3295 014024 022712 020000 #20000, (R2) “SEE IF IT CONTAINS 20000 (FOR APT USE) 
3296 014030 00141 2$ SBRANCH I IF SO 
3297 014032 012712 040000 1$: #40000 (R2) :LOAD MAP 
3298 014036 010237 057776 57776 *LOAD TEST LOCATION WITH THE 
3299 OF THE MAP REGI 
3300 014042 012737 057776 001314 #57776,UBM24P :MOVE ANTICIPATE 
3301 014050 000405 “BRANCH OVER LOCATION SETUP 
3302 014052 010237 037776 2$: R2,37776 “LOAD TEST LOCATION WITH THE ADDRESS 
330 -OF THE REGISTER UNDER TEST 
3304 014056 012737 037776 001314 #37776,UBM24P  :MOVE ANTICIPATED ADDRESS TO LOCATION 
3305 014064 162737 000200 172350 3$: #200, KIPAR4 “PREPARE KIPAR4 FOR FIRST 
3306 014072 062737 000200 172350 4$: #200 KIPARG *TRY NEXT MAP REGISTER 
3307 014100 005037 001330 41$: PC “CLEAR THE ERROR RECEIVE 
3308 014104 012737 017776 001310 #17 6. ,UBM24L “MOVE DEFAULT LMA ADDRESS TO UBM24L 
3309 014112 020037 172350 RO, KIPAR ‘SEE IF REGISTER UNDER TEST IS POINTED TO BY KIPAR4 
3310 014116 001003 45 ‘BRANCH AROUND SETUP IF NOT 
3311 014120 013737 001314 001310 UBh24 P.UBM24L :MOVE SPECIAL LMA ADDRESS TO LOCATION 
3312 014126 012737 000020 001326 45$: aT INOUT CPUEXP ; POSSIBLE NON-EXISTENT MEMORY 
3313 014134 011304 “READ THROUGH THE MAP REGISTER 
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3 14352 
3355 014386 
3356 014362 
3357 014364 
3358 014366 
3359 014372 
3360 014374 


| CRRUAEO 11/24/44 UBI MA 
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004737 
0004 





THERE IS 


001326 


001380 


004000 
177736 
177734 
172350 


005076 
001306 


001202 


172356 
003624 


004000 
177736 
177734 
172350 


005076 
001306 
001000 
001174 
005076 
001306 


172350 
177400 
001260 


000200 
177400 
001276 


001174 
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NO DUAL MAP 


164750 


001304 
001306 


164644 
001304 
001306 


164576 


172350 
172350 


172350 
172350 


172350 


20S: 


59$: 


46$: 
47$: 


5$: 
6$: 


7$: 
8$: 


9$: 


10$: 
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CPUEXP 


8 

R4,R2 
#B1T11,aSWR 
49$ 

LMAH] ,LMAH 
LMALOW,LMAL 
RO,KIPAR4 
PC, CHKLMA 
LMAH ,LMAL 


(R3) .STMP3 
STMPS,-(SP) 


KIPARL -(SP) 


ADREXT 


Ro. SP) 
RIPAR? -(SP) 


PC DATEXT 
46$ 

R4.R2 
#B1T11,aSwWR 
59$ 
LMAHI , LMAH 
LMALOW,L 
RO. KIPAR4 
47$ 

PC, CHKLMA 









47$ 
+210 
#BIT9, aSwR 
0$ 


$ 

STMPO 

PC, CHKLMA 
LMAL 


o 





8$ 
RO,KIPAR4 


#177400 ,KIPAR4 
eel KIPAR4 


Hh PRIPARG 


BUPWIN, KIPAR4 
9$ 


41$ 
$TMPO 


SEQUENCE 


O MORE Eg Ut a AWHILE 
F THERE WAS AN ERROR 
AROUN TA TEST IF SO 
; SEE IF CORRECT DATA WAS FETCHED 
CH IF NO MA 
SEE IF THIS is AN 11/24 WITH UB MEM ONLY 
:BRANCH IF 
: SAVE LMA HIGH REG LMAH 
;SAVE LMA LOW REG IN 
>SEE IF MAP REGIST ERS” ARE THE SAME 
; CH IF CORRECT MAP wee Wh WAS © vy 
;GO CHECK FOR 11/24 UB 


WITH MEMORY 
; ADDRESSES OF LOCATIONS CONTAINING LA "CONTENTS 
HERE IF pth ACHIEV 


4 WORDS OF ADDROR AND ADRAND 
REGISTER ON STACK FOR DATEXT USE 
AR CONTENTS TO STACK FOR SUBROUTINE USE 

IN DATAOR AND DATAND 


ERROR SETUP 
:SEE IF 4 y DATA WAS FETCHED 


F NO MATCH 
iSEE iF ge i AN 11/24 WITH UB MEM ONLY 





BRANCH IF CORRECT RE 

:G0 CHECK FOR 11/24 WITH UB MEMORY ONLY 
ADDRESSES OF LOCATIONS CONTAINING LMA CONTENTS 
;RE TURN IS HERE IF MATCH ACHIEVED 


ING ERROR IN THE 
SEE IF LOOP 73 ERROR IS SET 
>BRANCH BACK IF SO 

;BRANCH AROUND ADDRESS og tt SETTING 

:SET FLAG WHEN ADDRESSES MATCH 

TINE CHECK - A, eae 


UNIBUS MAP 





rn 














H 
F MAP REGISTERS ARE THE 
H IF CORRECT MAP REGISTER WAS USED 
“SEE IF LAST REGISTER HAS BEEN TRIED 
“BRANCH TO CONTINUE IF SO 
SEE IF ALL HAVE BEEN TRIED 
“BRANCH IF ST TO T 
MAP TO NEXT STER 
SEE IF WE ARE AT THE TOP 
BRANCH TO CONTINUE IF SO 
“SEE IF WE ARE POINTING TO THE UPPER WINDOW START 
“BRANCH BACK FOR ANOTHER INCREMENTING SET IF NOT 
G0 BACK FOR A NEW TRY 
SEE THAT THERE WAS A SUCCESSFUL MATCH 


meme we ae eee; 


81 


3371 014450 


WUNss— 
ArmA SM 


34 4604 
3401 014610 
3402 014614 


CKKUAEO 11/24/44 UBI MAP 
TEST # 7 = ENSURE THAT 


cscs 
Wo 


ssssesss 

OF NONOMN AND 
SS {SNS *SSHLUER 
MON] NWNAN NONOO 


RES 


001260 
014010 
000200 


000004 
177400 
001276 


014072 
001320 


001110 
001320 


MACRO ght 


THERE IS NO DUAL MAP 


11$: 


14$: 


15$: 


ae - a 


#40000, (R2) 
37776 
$ 


R 
#200,R0 
i 
#177400,R0 


e 7 
aes 11:27 PAGE 68-2 


SEQUENCE 82 


;BRANCH IF THERE WAS 

:PUT ADDRESS OF ng A ON STACK FOR a USE 
;PUT PAR STACK FOR SUBROUTINE ADREXT USE 

:GO SET DATA IN THE 4 WORDS OF ADDROR AND ADRAND 
; DUAL ey: ERROR IN THE UNI MAP 
;CLEAR FLAG FOR NEXT REGISTER 
;SEE IF R? IS POINTING TO MAPL1 
:BRANCH IF NOT 

DOES MAPLI oe 40000? 
ONLY - ° la IS TO BE LEFT ALONE 











NE REGISTER UNDER TEST 
NEXT MAP REGISTER TO LOAD 
REGISTER HAS BEEN TRIED 
O NEXT SECTION IF SO 
ARE POINTING TO UPPER WINDOW START 
ANOTHER INCREMENT SET IF NOT 
ANOTHER RUN 


; JUMP BACK FOR 
7SEE IF THERE WERE ANY ERRORS 
;BRANCH TO NEXT TEST IF NO ERRORS 
T COUNT ERROR +16 AS ANOTHER ERROR 


SAME AS ABOVE 
; SUMMARY OF DUAL MAPPING ERRORS 

















Ps 
* 
- 
s 
° 


7 
CKKUAEO 11/24/44 UBI MA MACRO M1113 pr 11:27 PAGE 69 SEQUENCE 
TEST # 10 = LOAD LOC*S 40000-77776 WITH THEIR ADRES'S 























3411 _SBTTL TEST # 10 = LOAD LOC'S 40000-77776 WITH THEIR ADRES'S 
| 2 RAE AE TEE RE RARE ERERREEER TERRE AREER ERE EEE 
S*TEST 10 LOAD LOC'S 40000-77776 WITH THEIR ADRES'S 
| . THIS TEST IS USED TO LOAD MAIN MEMORY FROM ADDRESS 00040000 TO 
ie ADDRESS 000077776 WITH ITS OWN ADDRESS. IT THEN CHECKS THAT 
:* MEMORY OVER THE UNIBUS AND LOGS ANG REPORTS ANY ERRORS THAT 
:* IT FINDS. 
**® 
+ REAR RRR EREEEER EERE E EERE ee 
| 014616 TST10: 
014616 000004 SCOPE 
014620 004737 005166 JSR PC PRETST :GO SET UP PRETEST DATA 
014624 015072 015030 000010 .WORD 1S111,20$,10 :DATA USED BY PRETST 
3412 014632 042737 000040 172516 BIC #B1T5.MMRS *TURN OFF MAP RELOCATION 
3413 014640 012737 000400 172350 MOV #400, KIPAR4 “MAP PAGE 
3414 014646 012700 040000 MOV #4 RO : STARTING ADDRESS FOR DATA PATTERN 
3415 014652 012701 100000 1$: MOV #100000 ,R1 :VIRT IRTUAL ADDRE 
3416 014656 012702 010000 MOV #4096. .R2 POLAT IONS AT A TIME 
3417 014662 010021 2$: MOV RO, (R1)+ ‘t Y. ADDR. INTO EACH MEMORY LOC. 
3418 014664 062700 000002 ADD #2,R0 “POINT TO NEXT PHYSICAL ADDRESS 
3419 014670 077204 S0B R 33 “BRANCH IF 4K OF MEMORY NOT LOADED 
3420 014672 062737 000200 172350 ADD #200 .KIPAR4 “POINT TO NEXT 4K BANK OF MEMORY 
3421 014700 022737 001000 172350 CMP #1000, KIPAR §§ :SEE IF 16K IS LOADED 
3422 014706 101361 BHI 1$ “BRANCH IF MORE MEMORY TO LOAD 
*® 
3424 :* MEMORY FROM 8K - 16K IS NOW LOADED WITH ITS OWN ADDRESS 
;* 
3426 014710 022737 171000 172354 CMP #171000. KIPAR6 :DID I USE ANY MAP REGISTER 
3427 *BELOW REGISTER 6 (UB. ADDR 100000) 
3428 014716 101465 BLOS TST11 > sBRANCH TO NEXT TEST IF NOT 
3429 014720 013700 172354 MOV KIPAR6,RO *LOAD PAR6 INTO RO TO GET 
3430 ;THE STARTING DATA PATTERN 
3431 014724 072027 000006 ASH r120800, NOW HOLDS THE STARTING DATA PATTERN 
3432 014730 012701 140000 3$: MOV aii 4 “STARTING VIRTUAL ADDRESS 
3433 014734 012702 010000 MOV [PREPARE TO READ 4K AT A TIME 
3434 014740 011103 4$: MOV «RID 096. «R2 “READ MAIN MEMORY THROUGH UNIBUS 
3435 014742 020003 CMP RS SEE IF THE ADDRESSES MATCH 
3436 014 001012 BNE H 
3437 014 022120 5S: CMP (R1)+, (RO) + * CHANGE VIRTUAL & PHYSICAL ADDRESSES 
3438 014750 077205 $08 ;BRANCH | F 4K OF Y NOT READ 
3439 014752 062737 000200 172354 ADD 2 gh IPARG *POINT TO NEXT BANK OF x THROUGH UNIBUS 
3440 014760 022737 171000 172354 CMP #171000, KIPAR6 :SEE IF a #3 POINTS TO 16K PLUS 2 
3441 014766 101360 BHI 3$ “BRANCH IF 16K OF MEMORY NOT CHECKED 
3442 014770 000430 BR 10$ *TEST FINISHED, BRANCH TO EXIT 
3443 014772 011146 6S: MOV (R1),-(SP) “PUT VIRTUAL ADDRESS ON STACK FOR ADREXT SUBROUTINE USE 
3444 014774 013746 172354 MOV KIPAR6.-(SP) | _:PUT PAR6 CONTENTS ON STACK FOR SUBROUTINE USE 
3445 015000 004737 003674 JSR PC ADREXT :GO SET DATA IN THE 
3446 015004 010146 MOV R1.-(SP) :PUT DATA ON F 
3447 015006 013746 172344 MOV KIPAR2.-(SP) | :MOVE PAR CONTENTS TO STACK FOR SUBROUTINE USE 
3448 015012 004737 JSR PC DATEXT : SUBROUTINE T LOAD DATAOR AND DATAND 
3449 015016 010337 005770 MOV R3.EADRS2 ;MOVE DATA IN R3 TO EADRS2 FOR ERROR CALL 
3450 015022 005037 005772 CLR ADRS2+2 “CLEAR UPPER 6 BITS TO PR 
3451 015026 000403 BR ¥ “BRANCH OVER LOOP ON PRROR SETUP 
3452 015030 011103 20$: MOV (R1)_.R3 “READ MAIN MEMORY THROUGH UNIBUS 
3453 015032 020003 CMP RO,RS *SEE LF THE ADDRESSES MATCH 
3454 015034 001401 BEQ 8$ “BRANCH IF OK 


— ee + 
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UAEO 11/24/44 UBI MAP O M1113 

T # 10 = LOAD LOC'S 40000-77776. uITH THEIR ADRES*S 
3455 015036 105303 7$: ERROR 
3456 015040 032777 001000 164070 8$: BIT 
3457 015046 001370 BNE 
3458 015050 ile BR 
3459 015052 005737 001320 10$: TST 
3460 015056 001405 BEQ 
3461 015060 005337 001110 DEC 
3462 015064 005337 001320 DEC 
3463 015070 104014 ERROR 


a ———— ———— 
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SEQUENCE 


RRORS ON THIS TEST? 
NO ERRORS ON THIS TEST 
‘BON T T COUNT ERROR +14 AS ANOTHER ERROR 
:SAME AS ABOV 
> SUMMARY OF UNIBUS ADDRESS FAILURES 


84 
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| CKRUAEQ 11724744 UBI MA MACRO M1113 11-JAN-82 11:27 PAGE 70 
TEST - MAIN MEMORY P TIMEOUT THROUGH MA 


3472 .SBTTL TEST # 11 = MAIN MEMORY TIMEOUT THROUGH MAP 


SERA EAAAEERAAAREARAEAAETEAEAARARAAAARARARAHAEREEAAEREA EERE 


SEQUENCE 


“*TEST 11 MAIN MEMORY TIMEOUT THROUGH MAP 
;* 
tt THIS TEST GENERATES A TIME T THROUGH THE UNIBUS MAP BY TRYING 
7 TO REFERENCE ADDRESS 170000 N MEMORY. IT USES THE LOWEST 
:* USABLE MAP REGISTER, WHICH IN THE MOEFAULT CASE IS MAP REGISTER 
** 
*® 
SUA IOIISIDISIOIISIOIITIIEISISIIOIDIUIISIIDIIDIIIDIDIIDIIUIDIDIDINII II Dn tnt 
015072 TST11 
015072 000004 SCOPE 
015074 004737 005166 J PC,PRETST :GO SET UP PRETEST DATA 
015100 015140 015132 000011 . WORD S112, 208 11s SDATA USED BY PRETST 
3473 015106 052737 000040 172516 BIS #B1T5.MMRS :T RELOCATION BACK ON 
3474 015114 005037 004312 CLR LOEFLG = CLEAR "LOEFLG FOR ERROR LOOP INDICATOR 
3475 015120 012737 000074 001312 #74, UBM24U “EXPECTING 74 IN UPPER POSITION OF 11/24 LMA 
3476 015126 005037 001310 CLR L “EXPECTING ZERO IN LOWER POSITION 
3477 015132 004737 020014 20$: JSR PC .MMTOTM *GO DO THE TEST 
3478 015136 104015 ERROR +15 “RETURN HERE IF ERROR - UNIBUS DID NOT TIME OUT 


~emmn & ceteee ee ee ee a ee 8 ee 
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CKKUAEO 11/24/44 UBI MAP MACRO M1113 Bae ae 27 PAGE 7 SEQUENCE 86 
TEST # 12 = RELOC USING LOWEST USABLE MAP REG THRU UNIB 


3489 -SBTTL TEST # 12 ~ RELOC USING LOWEST USABLE MAP REG THRU UNIBUS 
OO RRRRERRABALALAAAALABLARRRAAARARAAEERRR RRR REE REE EERE REECE RE RES GS 
CSTEST 12 RELOC USING LOWEST USABLE MAP REG THRU UNIBUS 
+t 
8 THIS TEST CHECKS OUT THE FULL ADDITION PROPERTIES OF THE UNIBUS 
* NAP IN THE DEFAULT CASE IT USES MAP REGISTER ZERO BUT 
ie IF THE MAP JUMPERS HAVE BEEN ALTERED TO DE-SELECT SOME MAP REGISTERS 
:* THIS TEST WILL USE THE LOWEST USABLE MAP REGIS 
:* IF AN ERROR OCCURS THE TEST WILL REPORT THE PHYSICAL ADDRESS 
“i THAT WAS DESIRED, AND THE DATA AT THE ADDRESS THAT WAS REFERENCED. 
** 
: 2 REE AREAEAAEAAEEEEARAREREAAEEAAEAEAREEAREEAEEERAREREAAAERREREEREAEEERE 
015140 rST12: 
015140 000004 SCOPE 
015142 004737 005166 JSR PC .PRETST :GO SET UP PRETEST DATA 
015146 015174 015154 000012 . WORD Tst13 20$.12 :DATA USED BY PRETST 
3490 015154 005037 004312 20$: CLR re “CLEAR LOEFLG - FLAG USED FOR ERROR RETURN 
3491 015160 005037 001312 CLR *CLEAR UPPER LOCATION 
3492 015164 004737 004106 1$: JSR PC RAPADD *G60 DO THE TEST 
3493 015170 104211 ERROR +211 “RETURN IS HERE FOR ERROR 
3494 015172 000774 BR 1$ *GO BACK TO THE SUBROUTINE 


me em 
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CRKUAEO 11/24/44 UBI MAP MACRO M1113 ee 11:27 PAGE 4? SEQUENCE 87 
TEST # 13 = CARRY PROP OF MAP'S RELOC ADDER THRU UNIBUS 


3503 .-SBTTL TEST # 13 = CARRY PROP OF MAP'S RELOC ADDER THRU UNIBUS 
STATA AAA 
:*TEST 13 CARRY PROP OF MAP'S RELOC ADDER THRU UNIBUS 
:* EVERY ADDRESS OF THE FORM XXXx0000 IS ew) HERE a MeRY on 
;* WITH a ytee UP_ TO 17000000. THAT IS, THE FIRST OF EVERY 2k 
te WORDS | DRESSED, TO INSURE THAT THE ADDER IN THE MAP IS 
7" WORKING PROPERLY . 
-* 
SMES EEE EIIEISISINE IIIT In ERR thet thie 
015174 000004 TST13: SCOPE 
3504 015176 004737 005166 JSR PC ,PRETST ;GO SET UP PRETEST DATA 
3505 : PITTITITITILILITILILILL LILI LL LIL LLL LLL ttt Pith 
3506 ; ** IMPORTANT *® : IF THE POSITION OF THIS TEST IS CHANGED, CHANGE THE THIRD 
3507 ; WORD BELOW TO THE NEW TEST NUMBER THIS TEST WILL OCCUPY. 
3508 a 6 6 hhh 
3509 015202 015236 015210 000013 -WORD 2$,20$,13 :DATA USED BY PRETST 
3510 000040 NEXMEM=B1 15 :B1T05S IS NON-EXISTENT MEMORY BIT IN THE CPU ERROR REGISTER 
3511 ot at9 005037 004312 20$: CLR LOEFLG Clean LOEF -, ° aektion AN ERROR RETURN FLAG 
3512 015214 005037 001312 CLR ran ste hoo Ia ATION 
3513 015220 012737 020000 001310 MOV -UBM24L IN POWER LOCATION 
3514 015226 004737 004416 1$: JSR PC, TCPMRA £60 DO THE TEST 
3515 015232 104211 ERROR +211 RETURN IS HERE IF AN ERROR 
3516 015234 000774 BR 1$ ;RETURN TO THE TEST 
3517 015236 2$: 


ee a re 


ee 
SL, TT TT TT KC NT 
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kK 7 
0 11/24/44 UBI MAP MACRO M1113 11-JAN-82 11:27 PAGE 73 SEQUENCE 88 
MAP SETTUP 





3518 .-SBTTL UNIBUS MAP SETTUP 

3519 5 ,eeceees lle & ila Gk fa ae at an ee 

3520 ; THE NEXT 3 TESTS ARE RUN THROUGH THE UNIBUS MAP 

3521 SR EEE EEA TATE 

3522 

3523 015236 000004 UBMSU: SCOPE ;LOOP ON PREVIOUS TEST 

3524 015240 105337 001100 DECB STSTNM ; DECREMENT STSTNM - THIS IS NOT A TEST 
3525 015244 104414 TBITR sRESTORE T-BIT IF JT W 

3526 015246 032777 004000 163662 BIT #B1T11,aSWR :SEE IF THIS IS AN 11/24 WITH UB MEMORY ONLY 
3527 015254 001405 BEQ ;BRANCH TO SETUP _IF NOT 

3528 015256 062737 000005 001100 ADD #5 ,STSTNM + FUDGE STSTNM 5 TESTS AHEAD AND 

3529 015264 000137 015744 JMP ss TST21 ; JUMP OVER NEXT 5 TESTS 
3531 SRR EATER RARE REE ERE AREER E RAAT TAREE The 

3532 ‘* 
3533 :* THIS CODE SETS UP THE TWO MAP REGISTERS ABOVE THE LOWEST 

3534 7° USABLE ONE TO POINT TO PHYSICAL MEMORY FROM 0 - 8K. IN THE 
3535 s@ DEFAULT + IN MANUFACTURING AND IF THERE IS NO UNIBUS MEMORY, 
3536 ;* THIS WILL BE MAP REGISTERS 1 AND 2. MAP REGISTER 1 WILL POINT 
3537 7* TO PHY 4K - CT-11"" Wi PROPERLY AND MAP 

3538 ;¢ REGISTER 2 WILL POINT TO PHYSICAL 0 - abe THIS MEANS THAT 

539 s* oe vs ors GET t etpeat so IT “rf A SES 040000 TO 057776 
3540 s@ THE UN AND KIPAR1 SHOULD GET 170 3 SO IT PUTS ADDRESSES 
S203 :* 020000 10. 037776 ON THE UNIBUS. 

-* 

3543 + RR RARER EEEE REE RER EERE ERR R ERATE AERA ER ERARERA AERA REA TEE TEE 
3544 
3545 015270 013701 001302 1$: MOV LREGU,R1 ;PUT POINTER TO LOWEST MAP REGISTER IN RI 
3546 015274 005721 TST (R1)+ :POINT TO LOWER 16 BITS OF LOWEST + 1 
3547 015276 012721 020000 MOV #20000, (R1)+ ;LOAD LOWER 16 BITS OF (LOWEST + 1). POINTING TO 4-8Kk 
3548 015302 005021 CLR (R1)+ ;CLEAR UPPER 6 BITS OF (LOWEST + 1) 
3549 015304 005021 CLR (R1)+ CLEAR LOWER 16 BITS OF (LOWEST + 2) 
3550 015306 005021 CLR (R1)+ ;CLEAR UPPER 6 BITS OF (LOWEST + 2) 

551 015310 013701 001256 MOV LOWEST ,R1 ;LOAD R 
3552 015314 062701 000200 ADD a R POINT R1 TO (LOWEST + 1) 

3553 015320 010137 172342 MOV R1,KIPAR1 [LOAD PART 

554 015324 062701 000200 ADD #200,R1 POINT R1 TO (LOWEST + 2) 

3555 015330 010137 172340 MOV RT, KIPARO LOAD PARO 


wont ee me we a eee 
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ov, et UBI MAP MACRO M1113_ 11-JAN-82 4 er PAGE ebe? SEQUENCE 


14 = MAIN MEM. T.0. THROUGH MAP, CODE RUN OVER U 
3567 .SBTTL TEST # 14 ~ MAIN MEM. T.0. THROUGH MAP, CODE RUN OVER U.B. 
 RRREREREEREREREREERREREREREREAREREREREERERE ERROR EER EReREREEs 
CSTEST 14 MAIN MEM. T.0. THROUGH MAP, CODE RUN OVER U.B. 
+t 
ie THIS TEST GENERATES A TIME T THROUGH THE UNIBUS MAP BY TRYING 
st TO REFERENCE ADDRESS 170000 N MEMORY. IT USES THE LOWEST 
ie USABLE MAP REGISTER, WHICH IN THE MOE AULT CASE IS MAP REGISTER 
** 
38 
a THIS TEST IS BEING RUN WITH ALL MEMORY REFERENCES GOING THROUGH 
;* THE UNIBUS MAP. 
-* 
SS RRRRR REAR ER ERR RR EEE R ERE ee 
015334 TST14: 
015334 SCOPE 
015336 004737 005166 JSR C,PRETST :GO SET UP PRETEST DATA 
015342 015362 015354 000014 . WORD rStis 20$,14  :DATA USED BY PRETST 
3568 015350 005037 004312 CLR LOEFLG *CLEAR LOOP ON ERR 
3569 015354 004737 020014 20$: JSR PC .MMTOTM “GO DO TEST ON PAGE ‘oF OF THIS LISTING 
3570 015360 104015 ERROR +15 :RETURN HERE IF ERROR - UNIBUS DID g/OT TIME OUT 
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CREUAEO 11/24/44 UBI MA MACRO 
TEST # 15 = RELOC USING. LOWEST USABLE MAP REG USING MAP R 


3584 


3585 015376 
3586 015404 
3587 015410 
3588 015414 
3589 015416 


005166 
015404 000015 
060000 060000 


ES 
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M1113. 11-JAN=82 yt se? PAGE 5 SEQUENCE 90 


- SBTTL TEST # 15 = RELOC USING LOWEST USABLE MAP REG USING MAP REG 


MRR REERESALSLLLSLSESESLERSR SRA RRR R SERRE RRR RRR RRR SRSA RARE RARER SESS 


LATEST 15 RELOC USING LOWEST USABLE MAP REG USING MAP REG 


si 
oi THIS TEST CHECKS OUT THE FULL ADDITION PROPERTIES OF THE UNIBUS 
oe MAP _L.U.. IN THE DEFAULT CASE IT USES MAP REGISTER ZERO RO BUT 
:* IF THE MAP JUMPERS HAVE BEEN ALTERED TO DE-SELECT SOME MAP REGISTERS 
“i THIS TEST WILL USE THE LOWEST USABLE MAP REGISTER. 
:* IF AN ERROR BCCURS THE TEST WILL REPORT THE PHYSICAL ADDRESS 
“i THAT WAS DESIRED, AND THE DATA AT THE ADDRESS THAT WAS REFERENCED. 
;* 
:* THIS TEST IS BEING RUN WITH ALL MEMORY REFERENCES GOING THROUGH 
:* THE UNIBUS MAP. 
** 
+ RRR RRRR ARERR RARE EERE RARER eee 
TST15: 

SCOPE 

JSR PC.PRETST :GO SET UP PRETEST DATA 

“WORD 1S1T16.20$.15 § :DATA USED BY PRETST 

MOV #060000,060000 :MAKE SURE ADDRESS 060000 CONTAINS ITS OWN ADDRESS AS DATA 
20$: CLR LOEFLG *CLEAR LOEFLG - USED IN ERROR RETURN 
1$: JSR PC, MAPADD :60 DO THE TEST 

ERROR +211 “RETURN IS HERE FOR ERROR 

BR 1$ [RETURN TO THE SUBROUTINE 
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CRRUAEO 11/24/44 UBI MAP MACRO M1113 pg ti 27 PAGE "6 SEQUENCE 
TEST # 16 = CARRY PROP OF MAP'S RELOC ADDER USING MAP 
3598 -SBTTL TEST # 16 = CARRY PROP OF MAPS RELOC ADDER USING MAP REG 
js Reenaneeensretenengaecetettenneseseneeseneseseseesaaasoesesees 
*TEST 16 CARRY PROP OF MAP*S RELOC ADDER USING MAP REG 


** 

;@ EVERY ADDRESS OF THE FORM XXXXx0000 I$ eee HERE STARTING 
;* WITH tet S UP TO 17000000. THAT IS THE FIRST OF Ah o 
;* WORDS | RESSED, TO INSURE THAT THE ADDER IN THE MAP 

; WORKING PROPERLY ; 
-* 
$1 


iii tia a manta aint i ea aaa 


f 


015420 
015420 000004 SCOPE 
015422 004737 005166 JSR PC,PRETST :GO SET UP PRETEST DATA 
015426 015450 015434 000016 “WORD 1ST17,20$,16  :DATA USED BY PRETST 
3599 015434 005037 004312 20S: CLR LOEFLG :CLEAR LOEFLG ~ USED AS ERROR RETURN FLAG 
3600 015440 004737 004416 1$: JSR PC TCPMRA :60 DO THE TES 
3601 015444 1046211 ERROR +211 “RETURN IS HERE IF AN ERROR 
3602 015446 000774 BR 1$ *RETURN TO THE TEST 
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A ee 


TEST @ 


3633 


5450 
5450 
5452 
5456 
3634 015464 
3635 015470 
3636 015474 
3637 500 
3638 506 
3639 512 
3640 514 
3641 5 
a08 522 
364 5 
3644 5 
3645 
3646 
3647 
3648 


Ww 
Nm 


wa 


© 
OOOCOCOCOCOOOCOOSOOOOCCCOCOOCOOCC oO 


a a ee ee ee ee ee ee ee ee SL 


RRAARARARAARAAAADD 
EXE 


3650 
3651 
3026 
365 

3654 
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MACRO M1113 11=JAN-82 11:27 PAGE 8,8 
# 17 - VERIFY TRAP DUE TO CACHE PARITY INTERRUPT 


000017 


172342 


020163 
020164 


163364 
0054 
008470 


177746 


SEQUENCE 


.SBTTL TEST # 17 = VERIFY TRAP DUE TO CACHE PARITY INTERRUPT 


FL AAAAAAAAEAEAEAAAAAAAAAARAAAAAAAAAEARARAAAHATAHAH AREER HAA AAS 


; *TEST 17 


VERIFY TRAP DUE TO CACHE PARITY INTERRUPT 


SAAR AAAARAAARAAEAAEAAAAAAAAAAARAAAARARERAAAEARAHEAEREREHAAES 


Se Ge . 
* ® © Meee. a” 2 #* 


a e2neeaenee 


OFF FOR THE 
BEFORE ANY TEST CODE IS EXECUTED. 


TPR RESESELALLSLELEL ERE SESE ARERR ERR REE RRR RRR RARER RRR R AAA RAED SD SE 
MPRRRRSELESZLLELALASSLARASA SALAS RR ERR ALAR RRA RARER R ASAD SD DS 


‘ea, an maak ae fan tae 


THE MAP WILL BE SHUT REMAINDER OF THE DIAGNOSTIC 
IT IS NOT NEEDED. 


THIS TEST IS OPTI AND i SELECTED BY HE MFM HARDWAR 
SWITCH REGISTER BIT 08 TO A 1_IN THE CASE OF ST 

OF THE DIAGNOSTIC. IN THE CASE OF MANUF ACTURI 

THEN BIT O8 OF $SWREG IS SET TO 1 THROUGH APT SCRIPTING. 


THE TEST VERIFIES THE SIGNAL GENERATED FROM THE CACHE 
TO THE UBI MODULE WHICH INDICATES TO THE UBI THAT A CACHE INTERRUPT 
IS BEING CALLED FOR(CACHE PE INTR L). 


THIS TEST ASSUMES THAT ALL MODULES EXCEPT THE UBI MODULE ARE KNOWN 
GOOD MODULES. 


Let TEST TOGETHER WITH OTHER CACHE TESTS,ALLOW MFG. TO ELIMINATE 
HAVING TO RUN THE CACHE DIAGNOSTIC DURING QUICK 
VERIFY TESTING OF THE UBI 


TEST DESCRIPTION: 
+ rig wert LOGIC BY ASSURING THAT A TRAP OCCURS TO LOCATION 
114 WHEN A LOCATION PREVIOUSLY WRITTEN 
WITH URONG HI/LO BYTE PARITY IS ACCESSED. 
CONDITIONS: PEA=0 















++ SESSA AASSAATASETEAAAAEAARARARAAAAEARAEAAAAARAARAAAAARATAAAAAE 


1$: 


2$: 
20S: 





T17: 










SCOPE 
JSR mc PRET ST :60_ SET up PRETEST DATA 
WORD rst 
a 
LR 
CLR KIPARO 
MOV #200, KIPAR1 
TSTa8 3s CPT YP 
BEO 1$ :BRANCH OVE 
INCB = ST STN - INCREMENT TEST NUMBER TO SIMULATE SKIPPING TEST 
BR TST21 “BRANCH OVER THIS AND NEXT TESTS 
BIT8 #200,SENVM -1S APT SIZING 
BEO RY SARDUARE SWITCH REGISTER 
BIT #100, SSWREG YES APT IS SIZING:DOES APT SAY TO DO THIS TEST 
BEQ TST 20 ::NO = SKIP TEST 
BR >YES,DO TEST 
BIT #100, aSwR “OES HARDWARE SWITCH REGISTER SAY TO DO TEST? 
BEO T >:NO = SKIP TEST 
MOV #5, CASH1 “MOVE BYTE TO LOAD TO CACHE TO SUB = DPmO02 
MOVB  #1.CASH2 “MOVE TEST 1 TO LOCATION IN SUBROUTINE :DPMOO2 
JSR PC. CASHSR =GO DO THE CASH TEST 
MOV “CAC > TURN CACHE 
TST “DID TRAP OC 
BEOQ T5720 : :BRANCH TO NEXT TEST IF YES 
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TEST # 17 = VERIFY TRAP DUE TO CACHE PAR ITY INTERRUPT 


3655 015606 104020 ERROR +20 ; INTERRUPT/ABORT LOGIC TESTS TRAP TO LOC 114 DID NOT OCCUR 
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TEST # 20 = VERIFY TRAP DUE TO CACHE PARITY ABORT 


3689 .SBTTL TEST # 20 ~ VERIFY TRAP DUE TO CACHE PARITY ABORT 
<i. fC nee Oe at et a 
SRTEST 20 VERIFY TRAP DUE TO CACHE PARITY ABORT 
: THIS TEST 1S OPTIONAL AND IS. SELECTED BY SETTING MEM HARDWARE 
SWITCH REGISTER BIT 08 IN THE CASE OF STANDALONE OPERATION 
OF THE DIAGNOSTIC. IN THE CA SE OF MANUFACTURING APT RUNTIME MODE 
THEN BIT "08 OF SSUREG IS SET TO 1 THROUGH APT SCRIPTING. 


sg TEST VERIFIES THE SIGNAL GENERATED FROM THE CACHE(BUS PBL) 
TO THE UBI MODULE WHICH INDICATES TO THE UBI THAT A CACHE ABORT 
IS BEING CALLED FOR. 


THIS TEST ASSUMES THAT ALL MODULES EXCEPT UBI ARE KNOWN GOOD MODULES 


THIS TEST TOGETHER WITH OTHER CACHE TESTS,ALLOW MFG. TO ELIMINATE 
HAVING TO RUN THE CACHE DIAGNOSTIC DURING QUICK 
VERIFY TESTING OF THE UBI MODULE. 


TEST DESCRIPTION: 


VERIFY ABORT LOGIC BY THE FOLLOWING RESULTS WHEN A LOCATION 
PREVIOUSLY WRITTEN WITH WRONG HI/LO BYTE PARITY IS ACCESSED. 
1. INSTRUCTION CYCLE WILL BE ABORTED 
2. THE ABORT CAUSES TRAP TO 114 


PROCEDURE : INHIBIT CLOCKING OF PARITY ERROR SIGNAL T 
INTERRUPT LOGIC. ALLOW CMPE<15> TO BE SET 
BY ABORT SIGNAL WHICH IS _ BY PARITY 
ERROR SIGNAL TO ABORT LOGIC 


es ene ee ee 


@aenpeneneenenenenenenennennmnnnennenennenennnennnnne 


CONDITIONS: PEA=1 
DCPI=1 
{ARERR AEARAEAEAARERAERAEAEEEERAREERAEEARERERAAAEAEAERAEERAEEERER 

$1613 - 

015612 004737 005166 JSR PC PRETST :G0 SET UP PRETEST DATA 

015616 015744 015666 000020 “WORD 1S721,20$,20  :DATA USED BY PRETST 
3690 015624 032777 000100 163304 BIT #B1T6.aSwR “DOES SWITCH REGISTER SAY TO DO TEST? 
3691 015632 001437 BEO 2 “NO = SKIP TEST 
3692 015634 132737 000200 020163 BITB #200,$ENVM 71S apt SIZING? 
3693 015642 001405 BEQ 12$ “NO: TRY HARDWARE SWITCH REGISTER 
3694 015644 032737 000100 020164 BIT #100, $SWREG YES APT Is SIZING; DOES APT SAY TO DO THIS TEST 
3695 015652 0014 BEQ 1$ :NO - SKIP TEST 
3696 01 0004 BR 0$ =YES,DO TEST 
%697 015656 032777 000100 163252 12$: BIT #100. aSWR “DOES HARDWARE SWITCH REGISTER SAY TO DO TEST? 
3698 01 001422 BEQ 21$ *NO = SKIP TEST 
3699 015666 012737 000004 005460 20$: MOV #4,CASH1 “MOVE CACHE LOAD VALUE TO LOC IN SUB _— ; DPMOO2 

015674 112737 000002 005470 MOVB #2.CASH2 “MOVE 2ND Test FLAG TO LOCATION IN SUB :DPMOO2 
3707 015702 004737 005324 JSR PC CASHSR *GO DO CACHE TEST 
702 015706 022704 177777 CMP wt R ; WAS INSTRUCTION ABORTED LEAVING R4 INTACT? 
703 015712 001401 BEQ :YES 
3704 015714 104021 ERROR 31 : INTERRUPT/ABORT TESTS R4 WAS OVERWRITTEN WITH 
3705 “DATA INDICATING THAT INSTRUCTION WAS NOT ABORTE 
3706 015716 005703 1$: TST R3 “DID TRAP OCCUR 
3707 015720 001401 BEQ 2$ :YES, PASS 
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JMP 
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ROR +22 

#0, CACHE 
z $TSTNM 
TST30 


SEQUENCE 


; INTERRUPT/ABORT TESTS TRAP DID NOT OCCUR DUE TO ABORT 
; TURN_CACHE ON 

;ADD 7 TO S$TSTNM_TO COMPENSATE FOR 7 TESTS SKIPPED 

; JUMP OVER NEXT 7 TESTS = THEY ARE FOR AN 11/24 ONLY 
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TEST # 21 - LMA REGISTER PHYSICAL ADDRESS CHE CK 
3724 .SBTTL TEST # 21 = LMA REGISTER PHYSICAL ADDRESS CHECK 
ORR RRARARALABRABRABRALAABABRARRARRAAARERRE EERE EERE EEE EE REE RRR RRR RES GS | 
CSTEST 21 LMA REGISTER PHYSICAL ADDRESS CHECK 
* 
‘8 THE NEXT 7 TESTS ARE EXECUTED ON THE 11/24 ONLY. 
** 
8 THIS TEST IS 10 CHECK QUT THE LMA (LAST MAPPED ADDRESS) REGISTER FOR 
8 PROPER CONTENTS. FIRST, THE PAR AND MAP REGISTERS ARE SET 
ce PHYSICAL ADDRESS IS PoAbED INTO AN EXPECTED DATA LOCATION. THEN THE 
:* MAP IS INSURED TO uBe ON ON AND A MEMORY ACCESS IS DONE, USING THE MAP 
:* REGISTER SO THE LMA IS LOADED. THE LMA IS THEN CHECKED FOR CONTAINING 
:* THE PROPER CONTENTS, CALLING AN ERROR IF EXPECTED DATA DID NOT APPEAR. 
*?® 
+ RRRRERRRRRE ERR RARER ER ERR ARERR RRR ATTRA TRAE Ree 
015744 TST21: 
015744 000004 SCOPE 
015746 004737 005166 JSR PC PRETST :GO SET UP PRETEST DATA 
015752 016220 016104 000021 “WORD TS122,20$,21 *DATA USED BY PRETST 
3725 015760 000416 BR 10$ ‘BRANCH OVER TEST PATTERN TABLE : DPMOO2 
3726 000002 .RADIX *SET RADIX TO BINARY REPRESENTATION * DPMOO2 
3727 015762 040000 100$:  .WORD "SSELECT MAP REG L BITS CLEAR > DPMOO2 
3728 015764 057776 “WORD “SELECT MAP REG 2. ALL BITS SET EXC 0 :DPMOO2 
15766 052524 “WORD >SELECT MAP REG 2, EVEN BITS SET > DPMOO2 
3730 015770 04525 “WORD “SELECT MAP REG 2. ITS SET = DPMOO2 
3731 015772 043146 WORD “SELECT MAP REG 2. PAIRS OF BITS SET :DPMOO2 
3732 015774 057036 WORD *SELECT MAP REG é. 2 SETS OF 4 BITS SET: DPMOO2 
3733 015776 040776 “WORD >SELECT MAP REG 2, 8 BITS SET = DPMOO2 
sEXPECTED RESULT = DPMOO2 
3735 016000 . WORD sEXPECTED RESULT WITH ALL BITS CLEAR :DPMOO2 
3736 016002 017776 : *EXPECTED RESULT WITH ALL BITS 1 EXC 0 :DPMOO2 
3737 016004 012524 , *EXPECTED RESULT WITH EVEN 31TS SET  :DPMOO2 
3738 016006 005252 : “EXPECTED RESULT WITH ODD BITS SET > DPMOO2 
3739 016010 003146 ‘ [EXPECTED RESULT WITH PAIRS OF BITS SET:DPMOO2 
3740 016012 017036 - *EXPECTED RESULT WITH GRPS OF 4 BITS =1:DPMO02 
3741 016014 00077 : “EXPECTED RESULT WITH 8 BITS SET > DPMOO2 
3742 000010 : :SET RADIX BACK TO OCTAL = DPMOO2 
3743 016016 012701 015762 10$: MOV : TABLE ADDRESS TO R1 = DPMOO2 
3744 016022 012702 000007 MOV :D0 RNS = DPMOO2 
3745 016026 042737 000001 177572 BIC :T MORY MANAGEMENT 
3746 016034 042 000060 172516 BIC ;TURN OFF 22~BIT AND MAP RELOCATION 
3747 016042 013746 172344 MOV VE KIP 
3748 01 013737 001256 172344 MOV PAR VALUE IN PAR2 TO ACCESS LOWEST MAP REGISTER 
3749 016054 052737 000060 172516 BIS #6 «TURN ON 22-BIT AND MAP RELOCATION 
3750 016062 005037 172340 CLR KIP. “CLEAR PARO FOR {PAGE ACCESSING THIS TEST 
3751 016066 052737 1 177572 BIS #B1T0, TURN ON NT 
575¢ 016074 005077 163200 CLR @LREGL “CLEAR LOWEST USEABLE MAP REGISTER LOW WORD 
3753 016100 005077 163176 CLR aL REGU “CLEAR LOWEST USEABLE MAP REGISTER HIGH WORD 
3754 016104 017137 000000 001174 20$: MOV (R1), =DO THE THRU THE MAP :DPMOO2 
3755 016112 026137 000016 177734 CMP 16(R1),LMALOW ; RE LOADED PROPERLY ;DPMOO2 
3756 016120 001 BNE 1$ F NOT 
3757 016122 013737 177736 001174 MOV LMAHI sar : $TMPO FOR PREPARATION’ 
3758 016130 042737 177700 001174 BIC #177700.$TMPO  :CLEAR ALL BUT LOWER 6 BITS 
3759 016136 001494 BEQ “BRANCH AROUND ERROR IF OK 
3760 016140 013737 177734 005770 1$: MOV LMAL OW EADR $2, “MOVE LOWER 16 BITS OF RECEIVED DATA TO EADRS2 FOR ERROR 
3761 016146 013737 177736 005772 MOV 1 -EADRS “MOVE UPPER 6 BITS OF RECEIVED DATA TO EADRS2*2 FOR ERROR 
762 016154 016137 000016 005764 MOV SRLS ,SADRES “MOVE EXPECTED DATA TO EADRES = DPMOO 
3763 016162 005037 005766 CLR EADRES+ “CLEAR THE UPPER LOCATION 
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TEST # 21 = LMA REGISTER PHYSICAL ADDRESS CHECK 


764 0161 0116 7? 172344 MOV ($P) .KIPAR2 : RESTORE E KIPAR2 

765 016172 104 3 ERROR + NOT ED PROPERL 

5766 016174 013737 001256 172344 MOV L Owe T .KIPAR2 ‘RESET PAR2 TO PRE-ERROR SETUP 

767 016202 012703 004 MOV #4000,R3 “MOV 4000 TO WAIT LOOF COUNTER 

3768 treiird 077301 15$:  S$0B “WAIT A LIT 

769 016210 005721 2$: TST (Ri)+ : INCREMENT TO NEXT TABLE VALUE :DPMO02 
3770 016212 077244 SOB R2,20$ >SUBTRACT 1 AND BRANCH IF NOT DONE YET :DPMOO2 
3771 016214 012637 172344 3$: MOV (SP)+,KIPAR2 :RESTORE KIPAR2 FOR GOOD NOW 
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# 22 - LMA FORCE JUMPER BIT TEST 





| -'3778 _SBTTL TEST # 22 = LMA FORCE JUMPER BIT TEST 
| SS RRAAAAAAAAAAAAAARARAAAEEAAAAARAERARARAAREEAAHAEEHHHETEREAAHEEEE 
S*TEST 22 LMA FORCE JUMPER BIT TEST 
*® 
ot THIS TEST DETERMINES THAT THE FORCE JUMPER BIT OF THE LMA IS ZERO AFTER 
7 A SYSTEM RESET. 
*® 
: REE EEAEEAAEARAARARAEEAEAAEKEEEARARAARAARAEAAERAAARAEAREEEREERAAREAREAEEEE 
016220 T$122: 
016220 000004 SCOPE 
016222 004737 0051 JSR PC, PRETS :GO SET UP PRETEST DATA 
016226 016266 016234 000022 “WORD TST23, 58, 22 :DATA USED By PRETST 
3779 000100 JBIT  =100 ‘FORCE JUMPER BIT IS BIT 6 
3780 016234 042737 000060 172516 20$: BIC #60,.MMR3 “TURN OFF 22-BIT AND MAP RELOCATION 
3781 016242 000005 RESET “RESET THE WORLD, CLEARING THE FJBIT 
3782 016244 032737 000100 177736 BIT #F JB1T LAH “CHECK THE BIT FOR BEING ZE 
3783 016252 001405 BEQ TST * ;BRANCH TO NEXT TEST IF Ok 
3784 016254 013701 177736 MOV LMAH] ,R1 “MOVE LMAH] TO R1 FOR ERROR CALL 
3785 016260 042701 000100 BIC #F JBIT,R1 “CLEAR THE BIT THAT SHOULD HAVE BEEN CLEAR 
3786 016264 104024 ERROR +24 “LMA FORCE JUMPER BIT NOT ZERO 
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# 23 = SETTING LMA FORCE JUMPER BIT TEST 
3796 .SBTTL TEST # 23 = SETTING LMA FORCE JUMPER BIT TEST 
“REE EREAAEAEKRAAARAEAEEEEEEAEKERAERAARARERARAERAKREEEAEEREEKEHEEAEEAEEEE 
: TEST 23 SETTING LMA FORCE JUMPER BIT TEST 
c. THIS TEST SETS THE FORCE JUMPER BIT AND TESTS ITS FUNCTIONALITY IF 
:* THE JUMPERS ARE NOT IN THEIR DEFAULT STATE. IF NOT (*LOWEST® OR 
:# ST’ DO NOT CONTAIN THE DEFAULT VALUES OF 170000 OR 177400 
it RESPECTIVELY), THIS TEST INSURES THAT THE PREVIOUSLY DISABLED MAP 
‘te REGISTERS ARE ENABLED WITH THE FJ BIT SET. 
*® 
UTI I III 
016266 TS123: 
016266 000004 SCOPE 
016270 004737 005166 JSR :GO SET UP PRETEST DATA 
16274 016474 016302 000023 WORD TSfoae 208 2 23 ;DATA USED ey PRETST 
3797 016302 052737 000100 177736 208: 81S wr J8IT.L T THE BIT 
3798 016310 032737 000100 177736 BIT #F JBI T tHANI “SEE IF IT WAS SET 
3799 016316 001005 BNE 1$ *BRANCH IF SET 
3800 016320 013701 177736 MOV LMAH “MOVE LMAHI TO R RI FOR ERROR CALL 
3801 016324 052701 000100 BIS 4F tt *SET THE BIT THAT SHOULD HAVE BEEN SET 
3802 016330 104025 ERROR + [LMA FORCE JUMPER BIT NOT SET 
3803 016332 022737 170000 001256 1S: CMP #170000, LOWEST SEE IF MAP REGISTER O IS LOWEST 
3804 016340 001004 BNE t [BRANCH AROUND UPPER bi MIT CHECK IF NOT 
3805 016342 022737 177400 001260 CMP W177400,HIGEST SEE IF MAP REGISTER 1 IS HIGHEST 
3806 016350 001451 BEQ TST26 H TO NEXT TEST IF 
3807 016352 052737 000060 172516 28: BIS TURN ON 22-BIT AND MAP RELOCATION 
3808 016360 012737 016440 001106 MOV #6$,SLPERR *RESET LOOP ON ERROR TO 6$ 
3809 016366 013746 172350 MOV bares: = (SP) : PAR 
3810 016372 013737 001262 172350 MOV ARG :MOVE LOWEST PAGE OF MEMORY WINDOW TO PAR4 
3811 016400 012700 117776 MOV wii2078. “AO :THIS WILL BE USED TO SELECT PAR4, ADDRESS 17776 
381¢ 016404 012702 125252 MOV #2525 ;LOAD CONSTANT TO R2 
3813 016410 07 BR : H OVER LOOP SETUP 
3814 016412 737 000200 172350 4$: ADD 7300 KIPARG “MAP 10 NEXT REGISTER 
3815 016420 023737 001264 172350 CMP 1.KIPAR | :SEE IF HIGHEST HAS BEEN REACHED 
3816 016426 001415 BEQ *BRANCH TO RESTORE PAR4 AND LEAVE TEST IF SO 
3817 016430 004737 003474 5$ JSR PC, TSTLOC “GO TEST LOCATION FOR WRITEABILITY 
3818 016434 000766 BR 4$ ;BRANCH BACK FOR ANOTHER TEST IF LOCATION LOADED 
3819 016436 000403 BR 7$ H AROUND LOOP ON ERROR SETUP 
3820 016440 004737 003474 6$ JSR PC, TSTLOC *GO TEST LOCATION FOR WRITEABILITY 
3821 016444 000401 BR 8$ :60_ TEST FOR LOOP ON ERROR IF OK NOW 
3822 016446 104027 7$: ERROR +27 “FORCE JUMPER BIT FAILS TO REVERT MAP REGISTER STATUS TO DEF 
3823 016450 032777 001000 162460 &8$: BIT W#BIT9, aSWR LOOP ON ERROR IS STILL SET 
3824 016456 001370 BNE 6$ ; 
3825 016460 754 | BR 4$ “BRANCH BACK FOR ANOTHER 
016462 012637 172350 9$: MOV (SP)+ K IPARG “RESTORE KIPAR4 
3827 016466 042737 000060 172516 BIC #60 MAR 
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TEST # 24 = CLEARING THE FORCE JUMPER BIT 
3833 .SBTTL TEST # 24 = CLEARING THE FORCE JUMPER BIT 
TORR RRALEALEALALALAALELAAAEARARREERRR EERE RRR REE EEE RE REE RES R REE S GY 
SSTEST 26 CLEARING THE FORCE JUMPER BIT 
* 
it THIS TEST CLEARS THE FJ BIT AND INSURES THAT IT IS SUCCESSFULLY CLEARED. 
** 
SHIGEO O EIEIO ISISIIOIUIOIUIIIIIIUIIUUUINODII I nant iit at ne 
016474 TST24: 
016474 000004 SCOPE 
016476 004737 005166 JSR PC,PRETST :G0 SET UP PRETEST DATA 
016502 016540 016510 000024 “WORD T1S125,20$,24  :DATA USED BY PRETST 
3834 016510 040737 000100 177736 20%:  &BiC #FJBIT,LMAHI :CLEAR THE BIT 
3835 016516 032737 000100 177736 BIT #E JB1T LAH :CH HECK TO SEE THAT IT WAS CLEARED 
3836 016524 001405 BEQ TST CH IF 
3837 016526 013701 177736 MOV LMAHI,R1 “MOVE LMAHI TO RI FOR ERROR CALL 
3838 016532 042701 1 BIC #F JBIT,R1 S CLEAR THE BIT THAT SHOULD HAVE BEEN CLEAR 
3839 016536 104024 ERROR +24 *LMA FORCE JUMPER BIT NOT ZERO 
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TEST # 25 = LMA CONTROL Bits TEST = DATI 


001174 


177736 
001174 


001000 
172344 


MACRO M1113 


000025 


172344 
177572 
172516 


001174 


001200 


001174 
001200 


162242 
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SEQUENCE 


. SBTTL TEST # 25 = LMA CONTROL BITS TEST = DATI 


TRPRRAEBASBESSLLLLLESLE LER ERR R RRR RRR RRR RRR ERAS ARR RRR RRR RRR RRR REEDS SS 



















SSTEST 25 LMA CONTROL BITS TEST = DAT! 
+t 
a THIS TEST INSURES THE CONTROL BITS 14 AND 15 LOAD PROPERLY DOING A 
;* 
** 
* REAR AKAKAEEEEEREAREREAREKKEAKEKEE 
T$725: 
SCOPE 
JSR PC PRETST :GO SET UP PRETEST DATA 
‘ T3126, 58$,25 DATA USED | Y PRETST 
MOV -(§P) SAVE 
MOV 41706 6, KIPAR2 ;LOAD RIPARS 
MOV #1,.MMRO : TURN ON MEMORY MANAGEMENT NT 
MOV #20..MMR3 TURN ON 22-BIT ADDRESSING 
NOV #1$4B1T14, RO :MOVE bn ADDRESS +40000 (TO REF PAR2) TO RO 
MOV UA STMPO “MOVE LMAHI T 0 STMPO FOR PREPARATION OF EXPECTED 
MOV STMPO, STP ;MOVE IT TO STMPD AL 
BIC 43777 , tne? CLEAR ALL BUT THE A ONTROL BITS 
CMP SEE IF EXPECTED DATA CAME UP 
BEQ TO FINISH TEST IF ALL CLEAR 
BR 1$ ‘BRAG OVER LOOP ON ERROR SETUP 
20$: MOV (RO) .R1 *DO A DAT! 
MOV LMAHI , $TMPO ‘MOVE LMAHI TO $TMPO FOR COMPARE 
CMP STMPO,$TMP2 :SEE IF EXPECTED DATA CAME UP 
BEQ 2$ *BRANCH ARGUND ERROR IF IT DID 
1$ ERROR +26 ‘LMA CONTROL BITS INCORRECT 
2$ BIT #BIT9,aSWR :SEE IF LOOP ON ERROR IS SET 
BNE “BRANCH BACK FOR ANOTHER TRY IF SET 
3$ MOV (SP)+,KIPAR2 :RESTORE KIPAR2 
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# 26 - LMA CONTROL ITs TEST = DATO 








3873 .SBTTL TEST # 26 ~ LMA CONTROL BITS TEST ~ DATO 
SRR EERE EERE EERE EEE REAERERREEREREE HERE ERER EERE 
:#TEST 26 LMA CONTROL BITS TEST = DATO 
c THIS TEST INSURES THE CONTROL BITS 14 AND 15 LOAD PROPERLY DOING A 
;* . 
** 
*: REECE AAEKEARAAEAEEAEAAARAERAKREEEEEKEEEAE 
016702 TST26: 
016702 000004 SCOPE 
016704 004737 005166 JSR PC PRETST :G0 SET UP PRETEST DATA 
016710 017036 017000 000026 “WORD  1S127.20$,26  :DATA USED BY PRETST 
3874 100000 DATO  =100000 
3875 016716 013746 172344 MOV KIPAR2 = -(SP) _; SAVE KIPAR2 
3876 016722 012737 170000 172344 MOV #1700 6, KIPARZ “LOAD KIPAR 
3877 016730 012700 057020 MOV *BiT 4 “MOVE LOCATION ADDRESS +40000 (TO REF PAR2) TO RO 
3878 016734 010110 MOV at “DO A DATO 
3879 016736 013737 177736 001174 MOV LMAH _ :MOVE LMAHI T 0 STMPO FOR CONTROL BIT ANALYSIS 
3880 016744 013737 001174 001200 MOV $TMPO.$TMP “MOVE IT IT SIME? AL 
3881 016752 052737 100000 001200 BIS #DATO.$TMP :SET AND CLEAR THE C t NTROL BITS EXPECTED TO BE SET 
3882 016760 042737 040000 001174 BIC #B1T14.$TMPO LEAR SO $TMP2 WILL CONTAIN THE EXPECTED 
3883 016766 023737 001174 001200 CMP ; SEE IF BT 9s IS SET AND 14 IS CLEAR 
3884 016774 001416 BEQ H IF OK 
3885 016776 000410 BR 1$ “G0 CALL ERROR 
3886 017000 010110 20$: MOV R1, (RO) *DO0 A DATO 
3887 017002 013737 177736 001174 MOV LMAHI,$T “MOVE LMA HIGH REGISTER CONTENTS TO STMPO FOR COMPARE 
3888 017010 023737 001174 001200 CMP STMPO. STMP [SEE IF EXPECTED C 
3889 017016 001401 $ ‘BRANCH AROUND IF IT DID 
3890 017020 104026 1$: ERROR +26 [LMA CONTROL BITS INCORRECT 
3891 017022 032777 001000 162106 2S: BIT #B1T9, aSWR “SEE IF LOOP ON ERROR IS SET 
3892 017030 001363 BNE 20$ “BRANCH BACK FOR ANOTHER TRY IF SET 


3893 017032 012637 172344 3$: MOV (SP)+, KIPAR2 SRESTORE KIPAR2 
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~- LMA CONTROL "Bits TEST = DATOB 


. SBTTL TEST # 27 = LMA CONTROL BITS TEST - DATOB 


| 
- 
| ARR RRBERELALLALSLRLES ES ERRASE REESE SER ARERR RRR RRR RARER SERRE SSE SS 
















: #TEST 27 LMA CONTROL BITS TEST = DATOB 
os THIS. TEST INSURES THE CONTROL BITS 14 AND 15 LOAD PROPERLY DOING A 
;* * 
** 
* REA AEAAEEKEAEAEEEAAEEEEEAEAEEAAEAAEKRERAKEEAAEREEREEEEEEAAREEHEEE 
017036 +8127: 
017036 000004 SCOPE 
017040 004737 005166 JSR PC PRETST :GO SET UP PRETEST DATA 
017044 017164 017126 000027 “WORD 1S130,20$.27  :DATA USED BY PRETST 
3901 140000 DATOB =140000 *DATOB CONTROL BITS STATUS=140000 
3902 017052 013746 172344 MOV KIPAR2.-(SP) |: SAVE KIPAR 
3903 017056 012737 170000 172344 MOV #170000, KIPAR2 :LOAD KIPAR 
3904 017 012700 057146 MOV #1$+BIT14,RO | :MOVE LOCATION ADDRESS +40000 (TO REF PAR2) TO RO 
3905 017070 110110 MOVB RI (RO) *DO A DATOS 
3906 017072 013737 177736 001174 MOV LMAHI, $TMPO “MOVE LMAHI TO $TMPO FOR CONTROL BIT CHECK 
3907 017100 013737 001174 001200 MOV STMPO, STMP2 “MOVE TO $TMP2 ALS 
3908 017106 052737 140000 001200 BIS #DATOB *SET THE EXPECTED DATA BITS INTO $TMPO 
3909 017114 023737 001174 001200 CMP $ :SEE IF EXPECTED DATA CAME UP 
3910 017122 001416 BEQ CH IF OK 
3911 017124 000410 BR 1$ :BRANCH TO CALL ERROR 
3912 017126 110110 20$: MOVB  R1,(R0) :D0 A DATOS 
3913 017130 013737 177736 001174 MOV »STMPO “MOVE LMA HIGH REGISTER CONTENTS TO STMPO FOR COMPARE 
3914 017136 023737 001174 001200 CMP STMPO, STMP2 ;SEE IF EXPECTED DATA CAMPE UP 
3915 017144 001401 BEQ 2$ H IF OK 
3916 017146 104026 1$: ERROR +26 “LMA CONTROL BITS INCORRECT 
3917 017150 032777 001000 161760 2$: BIT #8179 aSUR 7SEE IF LOOP ON ERROR IS SET 
3918 017156 001363 BNE “BRANCH BACK FOR ANOTHER TRY IF SET 
3919 017160 012637 172344 3$: MOV (SP)+,KIPAR2 :RESTORE KIPAR2 
3920 + RRRKEREERAAERERRERA ERATE STAT RATA AAA RTA R RAR eRe eee eA eRe KEES 
3921 * 
3922 +t >>NOTE<<: “DATIP*® CANNOT BE CHECKED IN THE 11/24 BECAUSE THE LMA IS 
3923 * WRITTEN TWICE WHEN A 'DATIP* IS EXECUTED, DESTROYING THE 
3924 * "DATIP' STATE THAT WAS WRITTEN FIRST. 
** 
3926 + eRRRARRE AREER AERATOR ERATE AAR AAA RAAT e AAA ee eeee eRe eee 


ee—<GWXvX—_—V—VX—_—_——_——— —_— - ee ee ee —— SS 
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3928 .SBTTL MEMORY ON UNIBUS TESTS HEADER 
3929 SERRE EERE EET 
39 3% 
3931 :* THE NEXT TWO TESTS WILL eye IF A ‘'1° IN BIT 5 OF THE SWITCH 
3932 ;* REGISTER IS FOUND SET. IF IT HAS, IT THEN DETERMINES IF THERE IS ANY 
3933 ;* UNIBUS MEMORY - ran ERROR RESULTS iF THERE IS NONE. IF THERE IS MEMORY, 
3934 ;* IT THEN SIZES THE AMOUNT OF MEMORY ON THE UNIBUS, INFORMS THE USER 
3935 ;* HOW MUCH MEMORY IT FOUND ON THE FIRST PASS, THEN SETS AND CLEARS ALi 
3936 ;* BITS OF ALL LOCATIONS IN THE UNIBUS MEMORY FOUND USING THE ‘MARCH’ 
batt 3* ALGORITHM. 

;* 
3939 :* M7098 FOR THE 11/44, M7134 FOR THE 11/24 
3940 8 JUMPER SETTINGS FOR THE MAP REGISTERS 

** 
3942 ;* V<<<<<LOWER LIMIT>>>>>V V<<<<UPPER LIMIT>>>>vV 
3943 :* 0 0 0 0 0 
3944 3% ' ' ‘ : ' ' : } ' } 
3945 ;* Wi2!; witli wi0: W9! WB! W7!i W6! wW5! ; W3! 
3946 ;* ' H ' } : ; ; ; ’ : 
see :* 0 0 0 0 0 0 0 0 0 0 
3949 ju3-W7 AND WB-Wi2 ARE THE BINARY-CODED PAGE NUMBER LIMIT (UPPER OR LOWER) . 
3950 7” JUMPER IN CORRESPONDS TO A LOGIC : A JUMPER OUT TO A LOGIC Le 
3951 SET THE JUMPERS, DETERMINE WHICH Seutbué PAGE THE MEMORY RESIDES IN (0 TO 31) 
3952 > *BY CHECKING WHICH OF ADDRESS BITS BA17-BA13 ARE ASSERTED. ALL ZEROS 
3953 :* 01000 IS PAGE 2, 11000 IS PAGE 3, ETC. UP TO 
3954 “PAGE 31 (11111). FOR THE MEMORY TO BE DETECTED, IT MUST LIE AT OR ABOVE 
3955 > *THE LOWER L TTING AND BEL UPPER LIMIT JUMPER ING. 
3956 s S TO HAVE UNIBUS IN S 5-9, ONE D SET THE LOWER LIMIT TO 
3957 >*PAGE 5 (10100) OR W10 AND Wi2 OUT, Sa WB. WS AND W111 IN, AND THE UPPER LIMIT 
3958 :*TO PAGE i. 4 ph ) OR AND w3 wen AND W7 IN. UNIBUS MEMORY 





0 AND W6 
3959 : #MUST BE CONTIGUOUS omN NCE NO GAPS Ure PERMITTED. 


 eereedbasnshiabnebentesabarkeaneseassataambeebebeceqenasosonses 
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CK 
EN 


3972 

017164 

fing 

a 
3973 017200 
3974 017206 
3975 017214 
3976 017216 
3977 ot 7S6s 
3978 0172 
3979 017234 
3980 017242 
3981 017244 
3982 017252 
3983 017260 
3984 017266 
Be Ser 
3987 017500 
3988 017304 
3989 017310 
sor as 
eae 0173 
3993 017334 
3994 017340 
3995 017342 
3996 017346 
3997 017350 
3998 017354 
3999 A 
4001 01 7370 
rs 017372 
400 Ate 1a 
4004 017376 
4005 017400 
reo 017404 
4007 017406 


: 
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005166 
017200 
000001 


000040 
021576 
170000 


177400 
012744 
000007 
000007 
021576 
001320 
0013 

172516 
000020 
172340 
000200 


006125 
006174 
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000030 
177572 
161722 
001362 
001256 
001260 
001106 
001100 
020146 


172516 
172342 




































SEQUENCE 
_SBTTL TEST # 30 - MEMORY ON UNIBUS TEST 
£ FARRAR AAAAARAAAAAAAAAAATEAAARAAAAAAAAAAAATERAREEAEAEHAEEEAEAEEEES 
-*TEST 30 MEMORY ON UNIBUS TEST 
38 
ce THIS TEST FIRST CHECKS TO SEE IF THE UNIBUS MEMORY TESTS HAVE BEEN 
:* SELECTED. IF NOT, THE EOP IS EZECUTED. 11 THEN CHECKS FOR UNIBUS 
:* MEMORY EXISTENCE BY CHECKING THAT THE CONTENTS OF LOWEST OR HIGHEST 
:* LOCATIONS IS NOT IN ITS DEFAULT STATE. IF BOTH ARE, 4N ERROR IS 
:* CALLED AND THE EOP IS EZECUTED. IF EITHER ARE NOT, THE NEXT SECTION 
:* IS EXECUTED THAT DETERMINES THE SIZE OF THE UB | y TELLS 
:* USER OF THE RESULTS ON THE FIRST PASS ONLY. 
**® 
Uc iT iti tii titi iii iii 
TST30: 
SCOPE 
JSR PC PRETST :GO SET UP PRETEST DATA 
. WORD T$131 208,30 “DATA USED BY PRETST 
20$: BIC = TURN OFF MEMORY MANAGEMENT 
BIT wgits, aswR ; SEE IF THIS TEST HAS BEEN SELECTED 
BEG saciid CH TO JUMP if TEST NOT SELECTED 
1$: CMP Hit LOWEST LOWEST 
BNE : T isn't - UNIBUS MEMORY EXISTS 
CMP 3377600, HIGEST :SEE IF HIGEST 1S HIGHEST 
BNE *GO DO TEST IF IT ISN*T IBUS MEMORY EXISTS 
MOV #S126J0.$ LSLPERR =MOVE SIZE JUMPER ROUTINE TO LOOP ON E 
MOVB SEXECUTING AFTER TEST 7 ON LOOPBACK 
MOVE #7.$TESTN *EMECUTING AFTER TEST 7 ON LOOPBACK 
ERROR +1 a *NO UNIBUS MEMORY EXIST 
2s: JMP > JUMP TO END OF PASS 
3$: CLR SERCNT *CLEAR THE ERROR COUNT INDICATOR 
CLR PCPUER :CLEAR THE ERROR REGISTER RECEIVER 
CLR AR MEMORY MANAGEMENT REGISTER MMR3 
BIS “TURN ON 22-BIT MAPPING 
CLR *MAP PARO TO bon 
MOV “MAP PAR? TO 4-8K 
MOV :MOVE UBRHI TO RO 
SUB = SUBTRACT UBRLOW FROM IT, AND 
iNC ‘ADD LAST BLOCK OF 4k TO LOOP COUNTER 
MOV :SAVE RO IN NUMOFK 
48: CLR *CLEAR THE MAJOR LOOP INDICATOR ON STACK 
MOV ROVE PAR CHANGE TO STACK 
MOV : STARTING PAR VALUE TO STACK 
MOV : NT VALUE T C 
TST [SEE IF THIS IS FIRST P 
BNE 33 TO NEXT TEST IF NOT 
MOV : LOOP COUNTER TO THE STACK AND 
ASL “ROTATE THIS TO THE LEFT 2 PLACES 
ASL :TO INDICATE NUMBER OF K IN OCT 
TYPE “GO TYPE THE UNI-BUS MEMORY AVAILABLE MESSAGE 
TYPDS :GO TYPE THE NUMBER IN - 
TYPE : K** AND <CRLF> 
TST32=$EOP 
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4015 _SBTTL TEST # 31 = USING MARCH ALGORITHM, CHECK UB MEMORY 
ae ee a ied Lina a—_€ 
:*TEST 31 USING MARCH ALGORITHM, CHECK UB MEMORY 
*® 
* THIS TEST LOADS PATTERN 125252 INTO ALL LOCATIONS IN UB MEMORY, THEN 
i USING THE MARCH ALGORITHM, CHECKS THE MEMORY 
*® 
UTITi Titi iti tii titi 
017412 TST31: 
017412 000004 SCOPE 
017414 004737 005166 JSR +60 SET UP PRETEST DATA 
017420 021576 017530 000031 i “DATA USED BY PRETST 
4016 017426 012704 125252 MOV “MOVE FIRST TEST PATTERN TO R4 
4017 017432 012705 052525 MOV “MOVE SECOND TEST PATTERN TO RS 
4018 0174636 013737 001262 172354 1S: MOV SINITIALIZE PAR6 
4019 017444 013700 001316 MOV :RE INITIALIZE LOOP COUNTER RO 
4020 017450 052737 000001 177572 BIS ON MEMORY MANAGEMENT 
4021 017456 012702 010000 2$: MOV ACCESS ALL WORDS IN THIS 4K BLOCK 
4022 017462 012703 140000 MOV *FIRST ADDRESS OF THIS PAGE 
4023017466 010423 3$: MOV “MOVE THE PATTERN TO THE LOCATION 
4024017470 077202 SOB ‘SUBTRACT 1 AND BRANCH IF 4K NOT DONE 
4025 017472 062737 000200 172354 ADD #200 .KIPAR6 “MAP TO NEXT 4K BLOCK 
4026 017500 077012 SOB RO,2$ : SUBTRACT 1 AND BRANCH IF BLOCKS OF 4K NOT DONE 
27 017502 016637 000002 172354 MOV 2(SP).KIPAR6 § :REINITIALIZE KIPAR6 TO POINT AT BEGINNING 
4028 017510 010100 MOV R1.RO- *REINITIALIZE LOOP COUNTER RO 
4029 017512 012702 010000 4$: MOV #16000 R2 SACCESS ALL WORDS IN THIS 4K BLOCK 
4030 017516 012703 140000 MOV #140000 ,R3 “FIRST ADDRESS OF THIS PAGE 
4031 017522 066603 000006 ADD 6(SP) RS “ADD OFFSET FOR THIS MAJOR PASS 
4032 017526 000401 BR 5$ ‘BRANCH OVER LOOP ON ERROR PREPARATION 
4033 017530 010413 20$: MOV R4, (R3) ; REWRITE 1ST PATTERN TO LOCATION FOR LOOP ON ERROR 
4034 017532 020413 5$: CMP R4. (R3) “SEE IF IT WAS LOADED RLY 
4035 017534 001403 BEQ 6$ > BRANCH ERROR L IF OK 
017536 010437 001204 MOV R4,STMPS “MOVE EXPECTED DATA TO $TMP4 
4037 017542 000405 BR 7$ ;60 COMPLE TE DATA FETCHING AND CALL ERROR 
4038 017544 005113 6$ COM (R3) EMENT THAT LOCATION TO PRODUCE SECOND TEST PATTERN 
4039 017546 020513 CMP RS, (R3) “SEE IF IT is THE COMPLEMENT 
4040 017550 001417 BEQ 118 “BRANCH AROUND ERROR CALL Y IT IS 
4041 017552 010537 001204 MOV RS, STMPS [MOVE EXPECTED DATA TO $TMP 
4042 017556 011337 00 7$ MOV (R$). STMPS “MOVE RECEIVED DATA TO sIePS 
4 175 5737 001330 TST PCPUE :SEE IF THIS ACCESS TIMED OUT - IF IT DID. BRANCH 
4044 017566 001010 11$ E CALLS - TIMEQUT ROUTINE LOGGED ERROR 
4045 017570 010337 005764 MOV R3_.EADRES “MOVE ADDRESS IN R3 TO EADRES FOR ERROR CALL 
4046 017574 104206 8$: ERROR +206 ;DATA PATTERN NOT CORRECT 
4047 017576 000404 BR 11$ CH INCREMENT AND CLEAR INSTRUCTIONS 
4048 017600 005237 001110 9$: INC SERTTL “STILL COUNT THIS AS AN ERROR 
4049 017604 005037 001330 10$: CLR PCPUER *CLEAR TIMEOUT RECEIVER 
4050 017610 061603 11$: ADD (SP) .R3 “ADD INCREMENT/DECREMENT VALUE TO R3 
4051 017612 077231 S0B R2,5 : SUBTRACT 1 AND BRANCH IF 4K NOT O RECKED 
4052 017614 066637 000004 172354 ADD 4(SP) .KIPAR6 :MAP TO NEXT 4K BLOCK 
4053 017622 077045 SOB RO,4$ “BRANCH BACK IF MORE BLOCKS TO CHECK 
4054 017624 005766 000006 TST 6($P) “TEST TO SEE IF THIS IS SECOND PASS 
4055 017630 001404 BEQ 12 “BRANCH TO PASS SETUP IF NOT 
4056 017632 062706 000010 ADD #10,SP “CLEAN UP STACK 
4057 017636 000137 021576 JMP $e : JUMP TO END OF PASS 
4058 017642 012766 017776 000006 12%: MOV #17776.6(SP) | :=MOVE 2K WORDS -2 (ALSO 2ND PASS INDICATOR) TO STACK 
4059 017650 012766 177600 000 MOV #-200,4(SP) “MOVE REVERSE PAR STER. TO STACK 
4060 017656 013766 001264 000002 MOV 1.2(SP) “MOVE LAST PAR VALUE TO STACK 


a a a 
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4061 017664 012716 177776 MOV #~2, (SP) ;MOVE DECREMENT VALUE TO STACK 
4062 017670 2 BR 1$ ;BRANCH BACK FOR SECOND PASS 


——— eee eal we ee ee ee 
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1387 020000 .=20000 ; THE APT TABLES NEED TO START AT 20000 - THIS STATEMENT DOES THAT 
4065 177777 ADDWO= 177777 

4066 177777 ADDWi= 177777 

4067 . SBTTL APT PARAMETER BLOCK 


SRAERAAAERERAEAAAARAAAAEEEEAEEKAAAEAHAAAAAERAEREREEEEREAS ERO AEEES 


:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


SAAR AAA AEEAAAAERRAAARRRRRRRREREEREAEERAEERRREREAREREE 


020000 .$X=.  3;SAVE CURRENT LOCATION 
000024 =36 *:SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 20 ::FOR APT START UP 
000044 -=44  ::POINT TO APT INDIRECT ADDRESS PNTR. 
000044 020000 $APTHDR ::POINT TO APT HEADER BLOCK 
020000 .=.$X  ;;RESET LOCATION COUNTER 


PITITITITIVILITITILIL Thi tii t titi tii 
;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 


020000 $APT 

020000 000000 $HIBTS: .WORD 0 ;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

020002 020142 SMBADR: .WORD $MAIL ::ADDRESS OF APT MAILBOX (BITS 0-15) 

020004 000005 STSTM: .WORD 5 +: RUN it OF LONGEST TEST 

020006 000010 SPASTM: .WORD 10 ;;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (GUICK VERIFY) 
020010 000000 SUNITM: .WORD 0 “ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
020012 000052 “WORD  SETEND-S$MAIL/2 : LENGTH MAILBOX~E TABLE (WORDS) 


eg 


CO eee le ee ee 
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4071 020014 
4073 020022 


MAP 


MACRO oy a 


172350 
161234 


161056 
172350 
001326 


001330 


004312 


A 
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SEQUENCE 109 
_SBTTL SUBROUTINE TO TEST TIMEOUT THROUGH UNIBUS MAP 
(10008 ee ae ee ee ee 
MMTOTM: TST LOEFLG ;SEE IF THIS ENTRY IS FROM ERROR LOOPING 
BEQ 1$ ANCH IF NOT 
ADD : “CLEAN EXTRA RETURN OFF STACK 
1$: CLR ERRCNT =CLEAR ERRCNT FOR THIS TEST 
MOV LOWEST.KIPAR4 :LOAD PAR 4 WITH LOWEST USABLE MAP REG 
MOV #74, @LREGU “LOAD UPPER 6 BITS OF LOWEST MAP REG 
CLR @LREGL “LOAD LOWER 16 BITS OF LOWEST MAP RE 
BIT #B1T11,aSWR “SEE IF AN 11/24 WITH UB MEMORY 
BEQ “BRANCH IF NO 
MOV #1 7600, KIPAR4 “RESET KIPAR A TIMEOUT THROUGH MAP CAN BE EXPECTED 
20$: CLR PC =CPU ERROR TER LOCATION 
MOV He iT CPUEXP ; EXPECTING T IN THIS TEST 
MOV TRY TO READ D THROUGH PAGE 4 THIS REFERENCE WILL GO OUT 
ON THE uN S 10 SELECT THE Lowkst USABLE MAP REGISTER (DEFAULT MAP REG. 0). PHYSICAL 
17700000 1§ N GENERATED, WHICH SHOULD TIME OUT SINCE IT IS THE FIRST 
eee STENT LOCATION. 
CLR CPUEXP :CLEAR LOCATION - NO MORE TIMEOUTS FOR A WHILE 
CMP #TIMOUT.PCPUER :THE UNIBUS SHOULD HAVE TIMED OUT 
BEQ $ “BRANCH IF CONDITION WAS CORRECT 
2$: MOV (SP) .-(SP) :PUSH ANOTHER RETURN ONTO THE STACK FOR POSSIBLE ERROR LOOP 
MOV i. ,LOEFLG :SeT ERROR LOOP FLAG 
3$: ADD #2, (SP) “CORRECT RETURN PC OVER ERROR CALL 
i$: RTS PC “EXIT 


——— +e — = —- —— ee eee ee eee eC — eee 
_ a ea ee ee. 


| 9 
CKKUAEO 11/24/44 UBI MAP MACRO M1113. 11-JAN-82 11:27 PAGE 31 SEQUENCE 110 


APT MAIL BOX-ETABLE 





















4095 .SBTTL APT MAILBOX-E TABLE 
| SAAR ERA AAA AAA E AAA RER REE REE EE ED 
| 020142 ::APT MAILBOX 
| 020142 000000 AMSGTY ::MESSAGE TYPE CODE 
20144 000000 AFATAL ::FATAL ERROR NUMBER 
| 020146 000000 ATESTN ::TEST NUMBER 
020150 000000 ASS 
20152 000000 
020154 000000 
020156 000000 
020160 000000 
162 
162 000 
020163 000 
164 000000 
020166 000000 SW 
020170 000000 TY 
15-11=CPU TYPE 
11/04=01, 11/05=02, 11/20=03, 11/40=04,11/45=05 
11/70=06.PDQ=07,0=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FLOATING POINT PROCESSOR 
BIT 8=MEMORY N 
020172 000 AMAMS1 ;:HIGH ADDRESS.M.S. BYTE 
020173 000 AMTYP1 :: BLKAI 
: oo CHIGH BYTE) 
R=002 
020174 000000 SMADR1 BLK#1 
- _=3 BYTES. THIS WORD AND LOw OF “TYPE” ABOVE 
020176 000 SMAMS2: .S. BYTE 
020177 000 $MTYP2: .B “MEM. TYPE 2 
020 000000 SMADR2: .WORD “MEM. LAST ADDRESS BLK#2 
020202 000 SMAMS3: .B :: ADDRESS.M.S.BYTE 
020203 000 $MTYP3: “MEM. TYPE ,BLKA3 
020204 000000 SMADR3: . WORD “MEM. LAST ADDRESS,BLK#3 
020 000 SMAMS4: .B -3 ADDRESS.M.S.BYTE 
02020 000 SMTYP4: .BYT : YPE ,BLKA4 
020210 000000 SMADR4: .WORD - T ADDRESS BLK#4 
020212 000000 SVECT1: .WORD :: T VECTOR#1.BUS PRIORITYA1 
020214 000000 SVECT2: .WORD :: INTERRUPT VECTOR#2BUS PRIORITY#2 
020216 000000 $BASE: .WORD :SBASE ADDRESS OF EQUIPMENT UNDER TEST 
020 000000 SDEVM: .WORD : MAP 
020222 000000 $CDW1: .WORD :: LER DESCRIPTION WORD#1 
020224 $CDW2: .WORD :: CONTROLLER DESCRIPTION WORD#2 
020226 177777 SDDWO: .WORD AD *:DEVICE DESCRIPTOR WORD#O 
020230 177777 SDDW1: .WORD ADDW1 ;;DEVICE DESCRIPTOR WORDA1 
020232 000000 SpDWe “WORD ADDW2 ::DEVICE DESCRIPTOR WORDA 
020234 000000 DW3: . WORD ADDWS ;:DEVICE DESCRIPTOR 
020236 000000 SDDW4: .WORD ADDW4  ;;DEVICE DESCRIPTOR WORD#4 
020240 000000 $DDWS: .WORD ADDWS ;;DEVICE DESCRIPTOR WORD#S 
020242 000000 SDDuG “WORD ADD *:DEVICE DESCRIPTOR WORDAG 
020244 000000 $DDW7: .WORD ADDW7 ::DEVICE DESCRIPTOR WORD# 
020246 000000 $DDW8: .WORD ADDWB ;;DEVICE DESCRIPTOR WORDA 
: 020250 000000 $DDW9: .WORD ADDW9 ::DEVICE DESCRIPTOR WORD 
i 
| 
| 
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$DDW10: .WORD ADDWI0 ;;DEVIC 
$DDW11: .WORD ADDW11 ;;DEVIC 
SDDW12: .WORD ADDWI2 ;;DEVIC 
$DDW15: .WORD ADDW15 ;;DEVIC 
SDDW14: .WORD ADDW14 ;;DEVIC 
$DDW15: .WORD ADDW15 ;;DEVIC 





mm 
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4097 .SBTTL SCOPE HANDLER ROUTINE 


Ses BRMit Te Chastinte & THE LOMDIMG OF GUATRGTS. 17 Ulli IMCREMEMT 


THIS i CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY = « (DISPLAY<7:0>) 


| 
| 

| 

| 

| 

| LOAD 

| THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
| 











: #AND THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:0 
* eSW14=1 LOOP ON 
‘*#SW11=1 INHIBIT ITERATIONS 
: #SWO9=1 LOOP 
: *SWOB8=1 LOOP ON TEST IN SWR<4:0> 
> *CALL 
:* SCOPE :: SCOPE=I0T 
020266 SSCOPE: 
266 005037 001360 CLR :CLEAR RETRY FLAG AN THE START OF EACH TEST 
020272 005037 001320 CLR “CLEAR THE MULTIPLE ERROR COUNTER 
020276 005037 001246 CLR *LOCATION FOR LOGICAL OR OF BAD DATA 
2 005037 001236 CLR ; LOCATION FOR LOGICAL OR OF ADDRESS 
005037 001240 CLR LOCATION FOR UPPER 6 BITS OF LOGICAL OR OF ADDRESS 
020312 005037 001 CLR ‘TOCATION FOR LOGICAL OR OF PATTERN 
020316 012737 177777 001242 MOV *LOCATION FOR LOGICAL AND OF BAD DATA 
020324 012737 177777 001232 MOV *LOCATION FOR LOGICAL AND OF ADDRESS 
020332 012737 000077 001234 MOV *LOCATION FOR UPPER 6 BITS OF LOGICAL AND OF ADDRESS 
340 012737 177777 001252 MOV “LOCATION FOR LOGICAL AND OF PATTERN LOADE 
0 012737 000077 005766 MOV “RESTORE UPPER 6 BIT LOCATION OF EADRES+2 
020354 012737 000077 005772 MOV “RESTORE UPPER 6 BIT LOCATION OF EADRS2+2 
020362 032777 040000 160546 1S: BIT 714, aSWR *:LOOP ON PRESENT TEST? 
020370 001134 BNE SOVER -*V¥ES IF SW14=1 
:MHMMASTART OF CODE FOR THE XOR TESTERS#MAM ae 
020372 000416 $XTSTR: BR 6$ 271 F RUNNING ON THE OR’ TESTER CHANGE 
>:THIS INSTRUCTION TO A "NOP’’ (NOP=240) 
020374 013746 000004 MOV @FERRVEC,-(SP) ::SAVE THE CONTENTS OF THE ERROR VECTOR 
020400 012737 020420 000004 MOV W5$,aMERAVEC ::SET FOR TIMEOUT 
020406 005737 177060 TST a#177060 iT] T ? 
020412 012637 MOV (SP)+,@#ERRVEC :;RESTORE THE ERROR VECTOR 
020416 000503 BR $SV :GO TO THE NEXT TEST 
020420 022626 5$: CMP (SP) +, (SP)+ CLEAR THE STACK AFTER A TIME OUT 
020422 012637 000004 MOV (SP)+,@WERRVEC RESTORE THE ERROR VECTOR 
020426 000443 BR LOOP ON THE PRESENT TEST 
0204 30 '  _ 6$: :#AMAHEND OF CODE FOR THE XOR * FESTERAANER 
020430 032777 000400 160500 BIT #B1T08 ,aswR :3LO0P ON SPEC. TEST? 
020436 001407 BEQ 2$ :BR IF 
020440 017746 160472 MOV aSwR (SP) <<SET DESIRED TEST NUM. FROM S 
020444 042716 000340 BIC #SSWRMK , ( *:STRIP AWAY UNDESIRED BITS 
020450 122637 001100 CMPB (spe StSfhn :30N THE RIGHT TEST? 
020454 001502 BEQ SOVER ‘BR IF YES 
020456 013737 177766 020700 2%: MOV 177766, CPSAVE “MOVE CPU ERR REG VALUE TO LOC FOR TST 
020464 032737 000001 020700 BIT #51100, CPSAVE “SEE IF THE POWER MONITOR BIT IS ON 
020472 001406 BEQ 2 “BRANCH TO CONT INUE ROUTINE IF CLEAR 
020474 042737 000001 177766 BIC welt 0.177766  :CLEAR THE BIT FOUND TO : 
020502 104177 EMT +177 “CALL SPECIAL POWER FAIL BIT ERROR CALL : 
020504 105037 001101 CLRB = SERFLG ;CLEAR THE ERROR FLAG 
020510 105737 001101 2000$: TSTB  $ERFLG + ORAS AN ERROR OCCURRED? 
020514 001421 BEQ 3 ::BR IF 
020516 123737 001113 001101 CMPB SERMAX, SERFLG «MAX. ERRORS FOR THIS TEST OCCURRED? 
020524 101015 BHI $ *:BR IF NO 


112 





020526 
0205 
020536 


032777 
001404 
SEES 


a ee eee 
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160402 aM #B1T09,aSWR 
001104 7$: MOV SLPERR ,SLPADR 
BR SOVER 
4$: CLRB SERFLG 
CLR STIMES 
BR 1$ 
160350 38: BIT #B1T11,aSWR 
BNE 1 
TST $PASS 
BEQ 1$ 
INC SICNT 
001102 CMP STIMES,SICNT 
BGE SOVER 
001102 1$: MOV #1,$I1CNT 
00121 MOV SMXCNT ,STIMES 
SSVLAD: INCB TNM 
020146 MOVB STSTNM,STESTN 
MOV -SLP 
MO (SP) ,SLPERR 





V 
CLR SESCAPE 
MOVB 


001113 #1, SERMAX 
160250 S$OVER: MOV $TSTNM, aDISPLAY 
MOV SLPADR, (SP) 
RTI 
SMXCNT: 2 


CPSAVE: .WORD 0 


scenes ~s 


SEQUENCE 


: LOOP ON ERROR? 
*:SET LOOP ADDRESS TO LAST SCOPE 


3;ZERO THE ERROR FLAG 

;;CLEAR THE NUMBER OF ITERATIONS TO MAKE 
APE TO_THE NEXT TEST 

os 








TIONS MADE 
COUNTER 
TO DO 


ILBUXx 







>;SAVE ERROR ADDRESS 

: CLEAR THE ESCAPE FROM ERROR ADDRESS 
: ONLY ALLOW ONE(71) ERROR ON NEXT TEST 
: DISPLAY TEST NUMBER 

FH RETURN ADDRESS 

scFIXES PS 
> ;MAX. NUMBER OF ITERATIONS 

sLOCATION TO SAVE CPU ERR REG CONTENTS 
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| 
| 
| 
| 


4099 


020702 


021062 
021070 
021076 


=) 

Nm 
ar ee re ar ee ee er 
a ee ree 
HPOMONMNANMOPL?!Y 


RSALSSSN—o 
Wie h 


—— 
—t od 
NWN NW 
SN™N © 
WAG 
NNN 


© 

w 
~“~ © 
~N WO 
Nu wh 


—_ —_ oe -~- 
SS RESK 
Sw ow 
NNNN SN 


— 
— 
NE 
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Sess SS SSSSSSsssnu 
ONNAAAAMNOO 
“MOA LNIOCON 


— 

oO 
<5 
a 
NO 


© 
Nm 
=) 
™~S 
So 
Nm 


— 
™N 
™N 
™~ 

2k 


000001 
001112 
000177 
020702 


020000 


002026 
001223 


000001 


001112 
021346 
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020146 


160016 


020162 
021154 
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.SBTTL ERROR HANDLER ROUTINE 


SEQUENCE 114 


MOPAR EESESELLLELESE REESE RARER RRR REE RRR RRR RRR RRR RRR RRR RSE SARA S SE SS 


SRTHIS ROUTINE WILL St sy THE ERROR FLAG AND THE ERROR COUNT, 


; *SAVE THE wie ITEM 


AND GO TO ERT 


IBSAVE : 
SERROR: 


7$: 


1$: 


2000$: 
2001$: 
20$: 


21$: 


mys winea” AND THE ADDRESS OF THE ERROR CALL 
:*THE SWITCH iid PROVIDED BY THIS ROUTINE ARE: 


N 
INHIBIT ERROR TYPEOUTS 
N ERROR 


BELL ON 
LOOP ON ERROR 


N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 


IBSA 
STSTNM,STESTN 
ERR 


$ 
STSTNM,@DISPLAY 
> ill decaa 






SBELL 
$ERTTL 
(SP), SERRPC 
RRPC SITEMB 


177, $1 TEMB 
50018 


- CPSAVE 
- CPSAVE 


IBSAVE 
1T13,aSWR 

PC ,ERTYPE 

, SCRLF 

#APTENV, SENV 


2$ 
th 2 hn 
a SAT 


;LOC'N TO HOLD SITEMB DURING DUAL ERR ;DPMOO1 
:CLEAR THE ITEM eS SAVE LOCATION :DPMO01 
7SAVE TEST NUMBER FOR ERROR TYPE OUT 


;COUNT ALL MULTIPLE ERROR 
; SAVE RO FOR POSSIBLE a OUT 


SAVE R 
;SAVE R35 FOR POSSIBLE TYPE OUT 
SAVE R4 FOR POSSIBLE T OU 


E YPE 
7SAVE RS FOR Awiges TYPE OUT 
33 SET THE ERROR FLAG 

;DON'T LET THE FLAG A TO ZERO 


: DISPLAY TEST NUMBER AND ERROR FLAG 
ON ERROR? 


LL 
T THE NUMBER OF ERRORS 
SIGET ADDRESS OF ERROR INSTRUCTION 


;zSTRIP AND SAVE THE ERROR ITEM CODE 
:SEE IF THIS IS THE POWER FAIL CALL 
;BRANCH AROUND ROUTINE IF IT IS 
;SEE IF THIS IS THE 2ND ERROR CALL 


:BRANCH IF SO 
:MOVE CPU ERR REG TO CPSAVE FOR TEST 
:SEE IF we MONITOR BIT IS SET 


:BRANCH IF OK 
CLEAR THE BIT FOUND SET 

NON-ZERO FOR DUAL CALL 
O SPECIAL POWER FAIL PNTR 
CH OVER IBSAVE CLEARING : 
“CLEAR IBSAVE SO AFTER 2ND ERROR, EXIT -; 


33 SKIP He $l IF SET 
;:SKIP_TYPEOUT 
::G0 TO USER ERROR ROUTINE 





; sRUNNING IN APT MODE 

:3NO SKIP APT ERROR REPORT 
; ITEM NUMBER AS ERROR NUMBER 
: REPORT FATAL ERROR TO APT 


i 


aaa 
ae 


_— ~ TT ee 
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4264/4 

LER ROUTINE 
021155 BYTE 0 
021156 228: 2$ ::APT ERROR LOOP 
021160 105737 020702 $: TSTB SAVE “SEE IF POWER FAIL ERROR CALL :DPMO01 
021164 001 “BRANCH IF NOT = HALT NOT ALLOWED “DPMOO1 
021166 005777 157744 TST aSwR * HALT ON ERROR 
021172 100001 L 3$ *:SKIP IF CONTINUE 
ARES HALT :;HALT ON ERROR! 
021176 032777 001000 157732 38: BIT #B1T09,aSWR *:LOOP ON ERROR SWITCH SET? 
021204 001405 BEQ *:BR IF NO 
921206 105737 020702 TSTB BSAVE “SEE IF THIS IS THE PWR MNTR BIT ERROR ;DPMOOT 
021212 001257 BNE “BRANCH BACK IF SO - FUDGING NOT ALLOWED:DPMOO1 
Oeie14 013716 001106 MOV $!.PERR, (SP) + FUDGE RETURN FOR LOOP 
021220 005737 001214 4$: TST $ESCAPE *:CHECK FOR AN ESCAPE ADDRESS 
021224 001405 BEQ > :BR IF NONE 
021 26 105737 020702 TSTB BSAVE “SEE IF THIS IS THE PWR MNTR BIT ERROR ;:DPMOO1 
021232 007247 BNE “BRANCH BACK IF SO - FUDGING NOT ALLOWED: DPMOO1 
021254 013716 001214 i MOV SESCAPE.(SP) § ::FUDGE RETURN ADDRESS FOR ESCAPE 
021240 022737 022024 000042 CMP #SENDAD,@442  ;;ACT-11 AUTO-ACCEPT? 
021246 001001 BNE 6$ : :BRANCH IF NO 
021250 000000 * HALT +S YES 
021252 105737 020702 TSTB IBSAVE :SEE IF THIS IS THE PWR FAIL ERROR CALL :DPMOO1 
021256 001235 BNE 4 “BRANCH BACK TO CALL ORIGINAL ERR IF SO :DPMOO1 
021260 032777 001000 157650 BIT #SW9,aSwR “ARE WE LOOPING ON THIS ERROR? 
021266 001417 BEQ 1000$ ‘BRANCH IF 
021270 012737 177777 177766 MOV #~1 [CLEAR CPU ERROR REGISTER 
021276 042737 177776 177572 BIC #177776,MMRO = CLEAR MEMORY MANAGEMENT STATUS REGISTER 
021304 012737 177777 003032 MOV #~1, TOFLAG s INITIALIZE TRAP FLAG 
021312 012737 177777 003224 MOV #-1,CPFLAG s INITIALIZE CP TRAP FLAG 

320 012737 177777 003374 MOV #~-1 MMF LAG ‘INITIALIZE MEMORY MANAGEMENT TRAP FLAG 


021 
021326 000002 1000$: ARTI RETURN TO TEST 


eee — 


grea 11/24/44 UBI MAP 


COMMUNICATIONS ROUTINE 


4101 


ALE AS 


gscesresuexszse = 


Sere: 


oOo 
mn 

xd ad ead ad ed 
Ww 
Ro 


021574 


YIN—NONOO NWN 


3 


105720 


000001 
000001 
000001 


021572 
000001 
000100 
000004 
000002 
020142 
020156 


020156 
020160 
000004 


000004 
000002 
177776 
022200 
021574 
020162 
020142 


021572 
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021574 
021572 


021574 


020162 
020163 


000004 


020142 
021504 
000004 


020144 
000004 
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SEQUENCE 


.SBTTL APT COMMUNICATIONS ROUTINE 


2s TRRREAAEARREEEEE EEE EERE RARER REE ERR RRR RRR RRR RRR RRR RRR RRR ARR R SDSS S| 


$ATY1: MOVB #1,$FFLG 
S$ATY3: MOVB #1,$MFLG 
BR ATYC 
SATY4: MOVB #1,$FFLG 
SATYC 
MOV RO,-(SP) 
MOV R1,-(SP) 
TSTB =—s_« SMFLG 
BEQ 5$ 
CMB #APTENV, SENV 
8178 #APTSPOOL , SENVM 
MOV a4(SP) RO 
ADD #2,4(SP) 
1$: TST SMSGTYPE 
BNE 1$ 
MOV RO, $MSGAD 
2$: TSTB =. (RO) + 
BNE s 
SUB SMSGAD RO 
ASR RO 
MOV RO, $MSGLGT 
mov #4, SMSGTYPE 
3$ MOV a4(SP).4$ 
ADD ; 4(SP) 
MOV 177776, ~(SP) 
JSR C,STYPE 
ti . WORD 
10$ TSTB ss SFFLG 
BEQ 12$ 
TST SENV 
BEQ 12$ 
11$: TST SMSGTYPE 
BNE 11$ 
MOV a4(SP),$FATAL 
ADD #2.4(SP) 
INC SMSGTYPE 
12$: CLRB 3s SFF LG 
CLRB ss SLFLG 
CLRB LG 
MOV (SP)+,R1 
MOV (SP)+,RO 
RTS PC 
SMFLG: .BYTE 0 
SLFLG: .BYTE 0 
SFFLG: .BYTE 0 
EVE 
APTSIZE=200 
ENV=00 
APTSPOOL=100 
APTCSUP=040 


ite REPORT FATAL ERROR 
TO TYPE A MESSAGE 


::TO ONLY REPORT FATAL ERROR 
;;PUSH RO ON STACK 
“PUSH R1 ON STACK 
i: SHOULD | TYPE A MESSAGE? 
: OPERATING UNDER APT? 
>:SHOULD SPOOL MESSAGES? 
+ GET MESSAGE ADDR. 
“BUMP RETURN ADDR. 
i: SEE IF F BONE / LAST XMISSION? 
::PUT ODOR IN MAILBOX 
‘FIND END OF MESSAGE 
;7SUB START OF MESSAGE 
MESSAGE LNGTH IN WORDS 
*:PUT LENGTH IN MAILBOX 
>: TELL APT TO TAKE MSG. 


;3PUT MSG ADDR IN JSR LINKAGE 
TURN ADDRESS 
SH 199776 ON STACK 


SS CALL TYPE MACRO 

:;SHOULD REPORT FATAL ERROR? 
7sIF NOT: 

; «RUNNING UNDER APT? 


: ZF INISHED ar MESSAGE? 






“BUMP RETURN 
se TELL ni TO TAKE ERROR 
Zi CLEAR F ATAL FLAG 


: POP STACK INTO RO 
: URN 
{MESS FLAG 
:IFATAL FLAG 


116 


r eee —-- 
a ae eae ee ea eee 
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END OF PASS ROUTINE 
4103 _SBTTL END OF PASS ROUTINE 
KEE AEAERERARAKERAAAEARAEAEAEEKEAEKEEAARAEAAAARAEEAREARREEEEAEAEEEEEEEE 
“SINCREMENT THE PASS NUMBER ($PASS) 
: INDICATE END=OF “PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
“*TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT vyyyy"’ 
“ #WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 
‘*]F SW12=1 INHIBIT T 
:#]F THERES A MONITOR GO TO IT 
:*]F THERE ISN'T JUMP TO LOOP 
021576 SEOP: 
021576 000004 SCOPE ;LOOP ON LAST TEST 
021600 005037 177572 CLR ARO -TURN OFF FULL RELOCATION 
021604 005037 172516 CLR MMR ; DISABLE THE UNIBUS MAP 
021610 104414 TBITR RESTORE THE T BIT IF IT WAS ON 
021612 005037 001100 CLR $TSTNM : ZERO THE TEST NUMBER 
. 021616 005037 001212 CLR STIMES * ZERO THE NUMBER OF ITERATIONS 
021622 005237 020150 INC SPASS : INCREMENT THE PASS NUMBER 
021626 042737 100000 020150 BIC #100000,$PASS ;;DON'T ALLOW A NEG. NUMBER 
021634 005327 EC (PC)+ LOOP? 
021636 000001 SEOPCT: . 
021640 003075 BGT $SDOAGN 3s YES 
021642 012737 V (PC)+,a(PC)+  ;;RESTORE COUNTER 
021644 000001 SENDCT: .WORD 1 
021646 021636 SEOPCT 
021650 104401 021656 TYPE 65$ ii TYPE ASCIZ STRING 
021654 000407 “GET OVER THE ASCIZ 
3265$: .ASCIZ <12><15>/END PASS #/ 
021674 64$: 
021674 013746 020150 MOV SPASS,-(SP) : 7 SAVE SPASS FOR TYPEOUT 
021700 104405 TYPDS -G0 TYPES SDECIMAL ASCII WITH SIGN 
021702 005737 001110 TST RTTL “SEE IF THERE ARE ANY ERRORS TO REPORT :DPMOO1 
021706 001427 BEQ 1000$ *BRANCH AROUNT MESSAGE PRINT IF NOT >DPMO01 
021710 104401 021716 TYPE ,67$ ;3 TYPE ASCIZ STRING 
021714 000421 BR “GET OVER THE ASCIZ 
minihin 678% "ASCIZ 7 TOTAL ERRORS SINCE LAST REPORT / 
021760 013746 001110 MOV SERTTL.-(SP)  ; ;SAVE SERTTL FOR TYPEOUT 
=TOTAL NUMBER OF ERRORS 
021764 104405 TYPDS >:GO TYPE=-DECIMAL ASCII WITH SIGN 
021766 104401 001223 1000$: TYPE SCRLF >: TYPE CARRIAGE RETURN, LINE FEED 
021772 005037 001110 CLR $ERTTL “: CLEAR E TOTAL 
021776 013700 42 $GET42: MOV a#42,RO0 *:GET MONITOR ADDRESS 
22002 001414 BEQ $DOAGN 3 IF NO MONITOR 
022004 005046 CLR ~(SP) *: INSURE THE ''T’’ BIT IS CLEAR 
022006 012746 022014 MOV #SCLR.T.-(SP) ::SETUP FOR AN RTI OR RIT 
022012 26 BR SRTRN ::G0 DO AN RTI OR RIT T0 LOAD THE PSW 
anne died *:WITH A CLEARED ‘'T’' BIT 
0 2014 013700 000042 MOV a#42,R0 : s INSURE RO. CONTAINS THE MONITORS 
022020 001405 BEQ $DOAGN : RETURN RESS 
02 32 6 RESET >: CLEAR THE "ORL D 
0 4 004710 SENDAD: JSR PC, (RO) ::GO TO MONITOR 
02 26 000240 NOP =: SAVE ROOM 
0220 000240 NOP re 
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END OF FASS ROUTINE 


0 000240 NOP s:ACT11 
0 SDOAGN: 
104400 TRAP :7PUSH OLD P Si, AND PC ON STACK 
042716 900020 BIC #20, (SP) -:CLEAR THE ‘'T’’ BIT 
32777 (01 157066 BIT #BIT12,aSwR SSRUN WITH TRACE TRAP? 
0 1 BNE 1 BR IF NO 
022052 137 022076 COM $TBIT >:1S IT TIME FOR TRACE TRAP 
0 100402 BM] ::BR IF NO 
0 052716 099020 BIS #20, (SP) * SET TRACE TRAP 
0 01 746 0 1$: MOV OOP, =(SP) 73 JUMP TO START OF TEST 
0 SRTRN: RT] ::RET -THIS IS CHANGED TO 
> SAN RIT’ IF ‘RIT’ 1S A LEGAL 
+ INSTRUCTION 
0 7g $LOOP: 
137 JMP a(PC)+ 7 ;RETURN 
022074 01 SRTNAD: .WORD LOOP 
022076 $TBIT: .WORD ::"T'’ BIT STATE INDICATOR 
022100 377 000 SENULL: BYTE -1,-1,0 *:NULL CHARACTER STRING 


— Sree ee. ee OT LT TLE LE LT 
i em 


— = - —_ = ——_— 
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SAVE AND RESTORE RO-R5 ROUTINES 


4105 . SBTTL SAVE AND RESTORE RO-RS ROUTINES 
TORR RRRABRABBAZAAEABRABABAAAAAAAAABRAAESSEASRE LESSER EEE RRR ERR SSR RRR RRR RASS SO 
SRSAVE RO-RS 
> *CALL: SAVREG 
+ 
: SUPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 
‘ eTOP=== (+16) 
s& +2===(+18) 
st +4---R5 
pe +6---R4 
r% +B---R5 
:*+10---R2 
2 %+12---R1 
-*+14---R0 
022104 SSAVREG: 
022104 010046 MOV RO,-(SP) :;PUSH RO ON STACK 
022106 010146 MOV R1,~(SP) 3;PUSH R1 ON STACK 
022110 010246 MOV R2,-(SP) ‘8 R2 ON STACK 
022112 010346 MOV R35,-(SP) 3é ON STACK 
022114 010446 MOV R4,-(SP) : PUSH R4& ON STACK 
022116 010546 MOV R5,~(SP) ss R5 TAC 
022120 016646 000022 MOV 22(SP),-(SP) 3;SAVE PS OF MAIN FLOW 
022124 016646 000022 MOV 22(SP),-(SP) ;:SAVE PC OF MAIN FLOW 
022130 016646 000022 MOV 22(SP) ,-(SP) :;SAVE PS OF CALL 
022134 016646 000022 22(SP) ,-(SP) :z;SAVE PC OF CALL 
022140 RTI 
s*RESTORE RO-R5 
;*CALL: 
-* RESREG 
022142 SRESREG: 
022142 012666 000022 MOV (SP)+,22(SP) : RESTORE PC OF CALL 
022146 012666 000022 MOV (SP)+,22(SP) ; «RESTORE PS OF CALL 
022152 012666 00002 MOV (SP)+,22(SP) : :RESTORE PC OF MAIN FLOW 
022156 2666 000022 MOV (SP)+, -? 3 PS OF MAIN FLOW 
022162 012605 MOV (SP)+,R ::POP STACK INTO R5 
022164 2604 MOV (SP)+,R4 B3 STACK INTO R4 
022166 012603 MOV (SP)+,R3 ::POP STACK INTO R3 
022170 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
022172 012601 MOV (SP)+,R1 : STACK INTO R1 
022174 012600 MOV (SP)+,R0 >: POP STACK INTO RO 
022176 000002 RTI 


ee 


ee eee ewe 
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4107 


105737 
10000 


001155 


000002 
000001 


000100 
022250 
021336 
000040 


022540 


022412 
001154 


001152 
000001 
022412 
022540 


000040 
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020162 
020163 


020163 


——— —_ + - -—- = - eee eer ae ee — —- = 
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fe oh TYPE ROUTINE 


SRA AEE RER AEA ER EAE EARAR RARER AARARERAAE RARE EES 


:*ROUTINE TO TYPE ASCIZ ab yer * MESSAGE MUST TERMINATE WITH A 0 
ERT A NUMBER OF 


; *THE ROUTINE WILL INS 
; *NOTE1: SNUL 
; *NOTE?: 
;*NOTES: 
* i 


SFIL 
SFILL 


:*CALL: 
281) USING A TRAP INSTRUCTION 
TYPE »MESADR 


:#0R 


- 


: 
$TYPE: 


1$: 


61$: 
62$: 
2$: 
60$: 
3$: 
4$: 


5$: 
6$: 


7$: 


BS: 


TYPE 
ME SADR 


B 
sHORIZONTAL TAB 
MOVB 


STPFLG 
1$ 


-RO 
#APTENV, SENV 
#APTSPOOL ,SENVM ; 
62$ 


RO,61$ 
PC.SATY3 


#APTCSUP,SENVM 
cl ata 
(SP)+ 
srs RO 

(SP) 
#HT, (SP) 
ACRLF , (SP) 
(SP)+ 


geen 


PC STYPEC 
sPiLtc, (SP)+ 


SNULL.~(SP) 

1(SP) 

6$ 

PC ,STYPEC 
HARCNT 


PROCESSOR 
#* (SP) 


NUL 
L CONTAINS THE CHARACTER " BE U 
LS CONTAINS THE NUMBER OF 
C CONTAINS THE CHARACTER TO FILL AFTER. 


SEQUENCE 120 


BYT 
LL_ CHARACTERS AFTER A LINE reéD. 
USED AS THE FILLER CHARACTER. 
FILLER CHARACTERS REQUIRED. 


;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


s31S oo A TERMINAL? 


HALT MER IF NO TERMINAL 


E RO 
$3GET ADDRESS OF ASCIZ STRING 
: RUNNING IN APT 
:7NO,GO CHECK FOR APT {CONSOLE 
POOL MESSAGE TO 
: NO GO CHECK FOR ONSOLE 
SETUP MESSAGE A ADDRESS FOR APT 


YPE 

: HARACTER TO BE TYPED ONTO STACK 

<°BR IF IT ISN'T THE TERMINATOR 

:31F TERMINATOR POP IT OFF THE STACK 
“RESTORE RO 

: :ADJUST RETURN PC 

: BRANCH IF <HT> 

: BRANCH IF NOT <CRLF> 


33PO0P <tt> Eeuty 
sz TYPE A CR AND L 


27 CLEAR CHARACTER COUNT 


HARACTER 
PE me CHARACTER 


© 
e Se @e Ge 
=m AAG 


I 
NULL CHAR. 
NULL NEED TO BE TYPED? 
IF NO=-GO POP THE NULL OFF OF STACK 
360 TYPE A NULL 
st COUNT AS A COUNT 


REPLACE TAB WITH SPACE 


v--o 


OXKUAES RS ae UBI MAP 


TYPE R 


Mmrorononnrr 
te ee et et ak de Sh | 
ROW 


AMMO 


022542 


022412 
000007 


156524 
156520 
177600 
000023 
156500 


156474 


000015 
022540 
000012 
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022540 


000021 
156440 
000002 


000002 


eee eS 


$TYPEC: 


101$: 


102$: 
10$: 


1$: 


N 
SCHARCNT : . WORD 


STYPEX: RTS 


ee ee 8 


PC, STYPEC 
#7, $CHARCNT 


(SP)+ 
2$ 


a$TKS 

101$ 

a$TKB, (SP) 
#177600, (SP) 
#SXON, (SP) 


(SP)+ 

a$TPS 

10$ 

2(SP) ,4#SXON 


YPEX 
2(SP) ,aSTPB 
#CR,2(SP) 


SCHARCNT 
en 
ALF 2 (SP) 
TYPEX 
(PC)+ 

PC 


oF wr 
5S 4se 


SEQUENCE 


;;TYPE A SPACE 
: BR ANCH IF NOT AT 
STOP 


#3POP SPACE OFF STACK 


;;GET NEXT CHARACTER 
+ CHAR IN KYBD BUFFER? 
R_IF NOT 


GET CHAR 
: STRIP oe BITS 
CHAR XOFF 


oe 
se 


;zWAIT FOR CHAR 


77BR IF NOT 
33F1X STACK 
77WAIT UNTIL PRINTER IS READY 
5S ee vee RANDOM XON? 


‘{POAD CHAR T TO BE TYPED INTO DATA REG. 
3318 CHARACTER A CARRIAGE RETURN? 


;;BRANCH IF NO 
23 VES=-CLEAR CHARACTER COUNT 
3318 fo ger fy LINE FEED? 


: COUNT THE CHARACTER 
;;CHARACTER COUNT STORAGE 





121 


—_ rn  - e 
ae _—_- -- SS _ 
— ~-— s+ --- —— eee — 
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BINARY TO OCTAL (ASCII) AND TYPE 


4109 .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
5 RARE AEA AAA AAAREAAAAEARARAE TEAR RAARAAEREEEEARREARAEEEAEE ES 
:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
“#OCTAL (ASCII) NUMBER AND TYPE IT. 
— HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
*® ® 


| MOV NUM, = (SP) : NUMBER TO BE TYPED 
TYPOS *=CALL FOR TYPEOUT 


sine ns § FOR NUMBER OF DIGITS TO TYPE 


3; 1=TYPE LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 


> *STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
;*STYPOS OR $TYPOC 


*CALL 


@ 
< 
“ 
m 
z2 
— 
» 

' 


ed 
Oo 


:* MOV NUM, = (SP) : NUMBER TO BE TYPED 
:* TYPON ::CALL FOR TYPEOUT 
;* 
s eSTYPOC~--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
7* : 
;* MOV NUM, -(SP) : NUMBER TO BE TYPED 
-* TYPOC 3;CALL FOR TYPEOUT 
022544 017646 000000 $TYPOS: MOV a(SP) ,-(SP) ::PICKUP THE MODE 
022550 116637 000001 022767 MOVB  1(SP),SOFILL s:LOAD ZERO FILL SWITCH 
022556 112637 022771 MOVB (SP)+,$OMODE+1 ;:: R OF DIGITS TO TYPE 
22562 062716 000002 ADD #2, (SP) * ADJUST RETURN ADDRESS 
22566 000406 BR S$TYPON 
022570 112737 000001 022767 $TYPOC: MOVB #1,$0FILL ::SET THE ZERO FILL SWITCH 
022576 112737 000006 022771 MOVB #6. SOMODE +1 ::SET FOR SIX(6) DIGITS 
22 112737 000005 022766 $TYPON: MOVB #5,$0CNT 37 SET THE ITERATION COUNT 
022612 010 MOV R3,-(SP) 73SA 
022614 0104 MOV R4,~(SP) ZISAVE RG 
0226i0 010546 MOV R5,-(SP) 3 R5 
22620 113704 022771 MOVB $ SOMODE+1,R4 >:GET THE NUMBER OF DIGITS TO TYPE 
022624 005404 NEG RG 
022626 062704 000006 ADD #6,R4 ::SUBTRACT IT FOR MAX. ALLOWED 
022632 110437 022770 MOVB  R4,SOMODE 33 IT FOR 
022636 113704 022767 MOVB ILL, RS 7:GET THE ZERO FILL SWITCH 
022642 016605 000012 MOV 12(SP) ,R5 ::PICKUP THE INPUT NUMBER 
22646 005003 CLR R 7;CLEAR THE OUTPUT WORD 
022650 006105 1$: ROL RS > ROTATE MSB INTO °C 
022652 000404 BR 3$ 7360 
022654 006105 2$: ROL RS ::FORM THIS DIGIT 
022656 006105 ROL R5 
022660 006105 ROL RS 
022662 010503 MOV R5,R3 
022664 006103 3$: ROL R3 ::GET LSB OF THIS DIGIT 
22666 105337 022770 DECB § $OMODE >:TYPE THIS DIGIT? 
022672 100016 BPL 7$ :;BR IF NO 
022674 042703 177770 BIC #177770,R3 >:GET RID OF JUNK 
22700 001002 BNE 4$ >: TEST FOR 0 
022702 005704 TST R4 :: SUPPRESS THIS 0? 
22704 001403 BEQ 5$ :BR IF YES 
2706 005204 4$: INC R4 =:DON'T SUPPRESS ANYMORE 0'S 
022710 052703 000060 BIS #'O,R - MAKE THIS DIGIT ASCII 
022714 052703 000040 5$: BIS #" GR ::MAKE ASCII IF NOT ALREADY 
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SEQUENCE 


:;SAVE FOR TYPING 
3;G0 TYPE THIS DIGIT 
3; COUN 

77BR HY MORE TO DO 

3, INSURE LAST DIGIT ISN‘T A BLANK 
::GO0 DO THE LAST DIGIT 

; RESTORE RS 

: RESTORE R4 

: ;RESTORE R3 

:;SET THE STACK FOR RETURNING 


: ;RETURN 

7; STORAGE FOR ASCII DIGIT 

: ; TERMINATOR FOR TYPE ROUTINE 
; AL DIGIT COUNTER 

7:ZERO FILL SWITCH 

: ;NUMBER OF DIGITS TO TYPE 
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_ CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


4111 . SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
| WTTTTITITILILILI LLL LILLE LLL LLL LLL LLL LLL LL 
| S STHIS ROUTINE IS USED TO CHANGE A 190) T BINARY NUMBER TO A zeeiett 
:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. a intan at ON WHETHER THE 
: *NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
| :*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


SEQUENCE 124 


** 


| : sREPLACED WITH SPACES. 


NUM, = (SP) 


;;PUT_ THE BINARY NUMBER ON THE STACK 





. *=G0 TO THE ROUTINE 
022772 $TYPDS: 
022772 010046 MO RO,-(SP) ;;PUSH RO ON STACK 
022774 010146 MOV R1,-(SP) *=PUSH R1 ON STACK 
022776 010246 MOV R2,-(SP) H R2 ON STACK 
023000 010346 MOV R3,-(SP) STA 
023002 010546 MOV R5.-(SP) 
023004 012746 020200 MOV #20200,-(SP) 
023010 016605 000020 MOV 20(SP).R5 
023014 1 BPL 1$ 
023016 005405 NEG R5 
23020 112766 000055 000001 MOVB #'*=,1(SP) 
023026 005000 $: CLR RO 
23030 012703 023206 MOV SDBLK .R i INTER 
023034 112723 000040 Move sot" Coys °:SET THE FIRST CHARACTER TO A BLANK 
023040 005002 2$: CLR R2 - ;7CLEAR THE BCD NUMBER 
023042 016001 023176 MOV $DTBL(RO).R1 =GET THE CONSTANT 
023046 160105 3$: SUB R1,R5 ; 7 FORM THIS BCD DIGIT 
023050 002402 BLT -*BR IF 
023052 005202 INC R2 >: INCREASE THE BCD DIGIT BY 1 
023054 000774 
023056 060105 4$: ADD R1.R5 :ADD BACK THE CONSTANT 
23060 005702 TST $3 CHECK IF BCD DIGIT=0 
023062 001002 5$ “FALL THROUGH IF 
023064 105716 TSTB —.:« (SP?) STILL DOING LEADING 0°S? 
023066 100407 BMI 7$ ::BR IF YES 
023070 106316 S$: ASLB = (SP?) 3 3MSD? 
023072 103003 Bcc 6$ IF NO 
023074 116663 000001 177777 MOVB = 1(SP),-1(R3) ZYES=~SET THE SIGN 
023102 052702 000060 6$: BIS #°0.R2 ‘MAKE THE BCD DIGIT ASCII 
023106 052702 000040 7$: BIS ‘Re ;3MAKE IT A SPACE IF NOT ALREADY A DIGIT 
023112 110223 MOVB 2, (R3)+ ::PUT THIS CHARACTER IN THE OUTPUT BUFFER 
114 005720 TST (RO) + +: JUST INCREMENT ING 
023116 020027 000010 CMP RO,#10 S3CHECK THE TABLE INDEX 
023122 002746 BLT * *GO DO THE NEXT DIGIT 
023124 003002 BGT $ °260 TO EXIT 
023126 010502 MOV R5,R2 :3GET THE LSD 
0231 764 BR CHANGE TO ASCII 
023132 105726 8$: TSTB ss (SP) + 3 IWAS THE LSD THE FIRST NON-ZERO? 
023134 100003 BPL IF NO 
023136 116663 177777 177776 MOVB <-1(SP),-2(R3) : EYEScSET THE S1GN FOR TYPING 
023144 105013 9$: CLRB  —s- (R’3) °:SET THE TERMINA 
023146 012605 MOV (SP)+,R5 *:POP STACK INTO RS 
023150 012603 MOV (SP)+.R *:POP STACK INTO R3 
023152 012602 MOV (SP)+.R2 *:POP STACK INTO 
023154 012601 MOV (SP)+.R1 *:POP STACK INTO R1 
023156 012600 MOV (SP)+.RO *:POP STACK INTO RO 
023160 104401 023206 TYPE  ,$DBLK *:NOW TYPE THE NUMB 


ee ee 
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17 4 UBI MAP 

BINARY TO DECIMAL AND TYPE ROUTI 

0 000002 000004 MOV 2(SP) ,4(SP) ;;ADJUST THE STACK 
0 MOV (SP)+, (SP) 

0 RTI 7 RETURN TO USER 
0 $DTBL: 10000. , 

0 1000. 

0 100. 

0 10. 

0 SDBLK: .BLKW 4 
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TTY INPUT ROUTINE 


4113 .SBITL TTY INPUT ROUTINE 
OR RRRAAEBBABALABARABABABARALABAALERERE EERE EERE RE RRR RRR RRR R SERRA RRS S| 
‘ENABL LSB 
- DSABL 


SERA AAA EERE EERE EAEREEREAEREARERAEREREEEREEAEEEEEKEEE 


STHIS. ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
** 








8 RDCHR ;zINPUT A SINGLE CHARACTER FROM THE TTY 
:* RETURN HERE “CHARACTER IS ON T ACK 
:* «WITH PARITY BIT STRIPPED OF F 
023216 011646 $RDCHR: MOV (SP) ,-(SP) ::PUSH DOWN THE PC 
023220 016666 000004 000002 MOV 4(SP) ,2(SP) i 7 SAVE THE PS 
023226 105777 155710 1$: TSTB. Ss @STKS ; : MALT FOR 
023232 100375 BPL 1$ A CHARACTER 
023234 117766 155704 000004 MOVB a@$TKB,4(SP) >:READ THE TTY 
023242 042766 177600 000004 BIC rth TT Ne 4(SP) GET RID OF JUNK IF ANY 
023250 026627 000004 000023 CMP 4(SP) #25 71S IT A CONTROLS? 
23256 001013 BNE 3$ 3: H IF NO 
023260 105777 155656 2$: TSTB a$TKS *:WAIT FOR A CHARACTER 
100375 BPL 2$ *:LOOP UNTIL ITS THERE 
66 117746 155652 MOVB a$TkB -(SP) 33GET CHARACTER 
023272 042716 177600 BIC #*C177, (SP) -*MAKE IT 7-BIT ASCII 
023276 022627 CMP (SP)+,4#21 7:1S IT A CONTROL-Q? 
023302 001 BNE *:]F NOT DISCARD IT 
23304 000750 BR 1$ =:YES, RESUME 
023306 026627 000004 000021 3S: CMP 4(SP) , #SXON 77S 17 A RANDOM XON? : RANOO 
023314 001744 BEQ -: H E > RANOOT 
023316 02 000004 000140 CMP 4(SP) ,#140 : 
23324 002407 BLT S 
023326 02 000004 000175 CMP 4(SP) ,#175 
023334 00 BGT 
023336 042766 000040 000004 BIC #40,4(SP) 
023344 000002 4$: RTI 
{kRRERRRAREREERER ERE E EEE RETAERE RARE AREA RAReeReeReeeeereReReeres 
STHIS ROUTINE WILL INPUT A STRING FROM THE TTY 
.* : 
ze RDLIN ;z INPUT A STRING FROM THE T 
:* RETURN HERE “ADDRESS OF FIRST DHARATTER ror BE ON THE STACK 
- t :: TERMINATOR WILL BE A BYTE OF ALL O'S 
23 010346 SRDLIN: MOV R3,-(SP) >SAVE R3 
023350 012703 023454 1$: MOV #STTYIN,R3 SIGET ADDRESS 
23354 022703 023464 2$: CMP #STTYIN¢S..R3 =: BUFFER FULL? 
023360 101405 BLOS 4$ >:BR IF YES 
023362 1044 RDCHR 7:60 READ ONE CHARACTER FROM THE TTY 
023364 11261 MOVB SP)+, (R3) *:GET CHARACTER 
23 122713 000177 10$: CMPB #177,(R3) 71S IT A RUBOUT 
023372 001003 BNE 3$ ::SKIP IF NOT 
023574 104401 001222 4$: TYPE SQUES >: TYPE A *? 
3400 000763 BR is *:CLEAR THE BUFFER AND LOOP 
023402 111337 023452 3$: MOVB = (R3),9$ >:ECHO THE CHARACTER 
023406 104401 0 345¢ TYPE ,9$ 
02341 1ee7es ae CMPB ss #15, (R3) + >: CHECK FOR RETURN 
0 3416 001356 BNE 2$ >:LOOP IF NOT RETURN 
02 105063 177777 CLRB 2s = 1 (R3) > CLEAR RETURN (THE 15) 
023424 104401 001224 TYPE ,$LF >: TYPE A LINE FEED 
023430 012603 MOV (SP) +,R3 > RESTORE R3 
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MOV (SP) ,=(SP) 
000002 MOV 4(SP5,2(SP 
000004 MOV #STTYIN,4( 

9$: BYTE 0O 

.BYTE 0 

STTYIN: .BLKB . 
015 $CNTLU: .ASCIZ /*U/<15><1 
015 $CNTLG: .ASCIZ /*G/<15><1 

123 $MSWR: .ASCIZ <15><12>/SWR = / 

116 $MNEW: .ASCIZ / NEW = / 


53 


;;ADJUST THE STACK AND PUT ADDRESS OF THE 
ia FIRST ASCII CHARACTER ON IT 


7 ;RETURN 
;; STORAGE FOR ASCII CHAR. TO TYPE 


3; TERM 

7 ;RESERVE Larres FOR TTY INPUT 
7; CONTROL ‘ 

:: CONTROL ‘°’G’’ 


m “mr tw we wn 
~~ Pee FROMM em MMM nawni Mh MM en on mM en cM en em er rr er ree: 


a, iii, li li iia as, dla ams, ila, ill, lly, ill, ily, ita, 


TRAP 
4115 


Oooo COCOOoOCOoCO 
MMM NoNnononronoror 


023554 


023600 
4116 023602 
4117 023604 
4118 023606 


Se) ae ay UBI MAP 


000002 


023554 


bal 


000004 000002 
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MACRO M1113 SEQUENCE 128 
.SBTTL_ TRAP DECODER 
ORR RERRAARAABRABAERAAAAAAAABRAARAERAREERERERE EERE EERE EERE EERE RRR RSE SG | 
THIS ROUTINE WILL PICKUP THE LOWER 8 BYTE OF THE TTRAR® INSTRUCTION 
“AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
=*OF THE DESIRED ROUTINE. THEN USING C THE ADDRESS OBTAINED IT WILL 
-*#GO TO THAT ROUTINE. 
$TRAP: MOV = ::SAVE RO 
MOV 2(SP) RO *:GET TRAP ADDRESS 
TST -(RO) : ;BACKUP BY 
MOVB _ (RO),,RO : GET RIGHT BYTE OF TRAP 
ASL “POSITION FOR INDEXING 
MOV $TRPAD (RO) .RO 3 INDEX TO TABLE 
RTS “GO TO ROUT! 
-THIS IS USE TO HANDLE THE “GETPRI’’ MACRO 
$TRAP2: MOV (SP) ,-(SP ::MOVE THE PC DOWN 
4(SP5 ,2(SP) : MOVE THE PSW DOWN 
sRESTORE THE PSW 
.SBTTL TABLE 
; STHIS ABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
-*BY THE "TRAP’’ INSTRUCTION. 
: ROUT INE 
$TRPAD: .WORD 2 
$TYPE ;;CALL=TYPE TRAP+ 1 (106601) TTY TYPEOUT ROUTINE 
$TYPOC ;;CALL=TYPOC TRAP #2(1066 ) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
STYPOS ::CALL=TYPOS | TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
STYPON ::CALL=TYPON  TRAP+4(104404) TYPE OCTAL L) 
STYPDS ::CALL=TYPDS §§ TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
SRDCHR ;;CALL=RDCHR TRAP #6 (104406) TTY TYPEIN CHARACTER 
SRDLIN ::CALL=RDLIN TRAP+7(104407) TTY TYPEIN STRI INE 
SRDOCT : L=RDOCT TRAP +10(106610) READ AN OCTAL NUMBER FROM TTY 
SSAVREG ::CALL=SAVREG TRAP+11(104411) SAVE 5 ROUTINE 
SRESREG :;CALL=RESREG TRAP+ 12( 104612) RES a 
TBITOF ::CALL=TBITO | TRAP+13(104413) THIS WILL TURN OFF T BIT 
TBITRE ::CALL=TBITR | TRAP+14(104414) THIS WILL RETURN THE T BIT TO PREVIOUS CONDI 
SRDOCT <::CALL=RDOCT | TRAP+15(104415) READ OCTAL 


a on ) eT 


OOOO OMMOOIMs 
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4120 


023772 
4121 023774 
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POWER DOWN AND UP ROUTINES 


023766 
000340 


023772 
155224 


023610 
000340 


000020 
022076 


015 


MACRO M1113 


000024 
000026 
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000024 


000024 
000026 


000002 
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SEQUENCE 129 


.SBTTL POWER DOWN AND UP ROUTINES 


LS 


POWER DOWN ROUTINE 


$PWRDN: 


F340 ae @#PWRVEC 


a4PuRVEC? 


*SET FOR FAST UP 
» PRIO: :7 

*:PUSH RO ON STACK 
* * PU 


;;PUSH R1 ON STACK 
ON STACK 
a3 R5 ON STACK 


save i ON STACK 


saneneenennenandecenenceceeenanaenenangenerenneeeeseeeseeeetecs 


“POWER UP ROUTINE 
$PWRUP: MOV #SILLUP .Q#PURVEC i ESET FOR FAST DOWN 


1$: 


PWRAS 

3 (SP) 
#20,2 (SP) 
$TBIT 


a 


:zWAIT LOOP FOR THE TTY 
4 FOR THE INC 
WORD 


7;POP STACK INTO @SWR 
ys -4 STACK INTO R5 


;;POP STACK INTO R2 
;;POP STACK INTO R1 
;POP ST ACK INTO RO 
THE POWER DOWN VECTOR 


:;PRIO: 

3 5+ THE POWER FAILURE 

: a FAIL Senet POINTER 
; 3RESTAR T AT STAR 

; ag ADDRESS. 

: ;CLEAR “'T’’ BIT 

::CLEAR THE “‘T’’ BIT FLAG 


+2 THE POWER UP SEQUENCE WAS STARTED 
sé BEFORE THE POWER DOWN WAS COMPLETE 


: 0 “PUT THE SP HERE 
: -ASCIT <12><15>?POWER FAILURE, RESTARTING PROGRAM? 


ooo999909000M% 









rr 


re 
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DOUBLE LENGTH BINARY TO POCTAL ASCII CONVERT ROUTINE 
4124 - SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 


TTT itt titi l iti titties 
:*THIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN 
: #UNS I SIGNED OCTAL ASCIZ NUMBER. 


| ie 





MOV #PNTR,-(SP) ; sPOINTER TO LOW WORD OF BINARY NUMBER 
:* JSR PC, a#$DB20 ::CALL THE ROUT 
_ ET «= THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 

024040 104411 $DB20: SAVREG ;7SAVE ALL REGISTERS 

024042 016601 990002 MOV 2(SP).R1 ‘PICKUP THE POINTER TO LOW WORD 
024046 012705 02415 MOV #SOCTVL 413. ,R5 : :POINTER TO DATA TABLE 

024052 012704 000014 MOV  - *:DO ELEVEN CHARACTERS 

024056 012703 177770 MOV #°C7_R3 + =MASK 

24062 012100 MOV (R1)+,RO = LOWER WORD 

024064 012101 MOV \ (R1)+.R1 : :HIGH 

24066 005002 CLR 3; TERMINAT 
024070 11024 1$: MOVB  R2,=(RS) T CHARACTER | IN DATA TABLE 

024072 010002 MOV »R2 “GET THIS DI 

024074 005304 DEC >: COUNT THIS CHA CTE 

024076 003007 BGT 3$ :3BR IF NOT THE LAST DIGIT 

24100 001405 BEQ 2$ “BR IF IT IS THE LAST DIGIT 

024102 005205 INC R5 7 ALL DIGITS DONE-ADJUST POINTER FOR FIRST 
24104 010566 000002 MOV R5,2(SP) SC1Z CHAR. & PUT IT on THE STACK 
024110 104412 RESREG ; TRESTORE ALL REGISTERS 

024112 000207 RTS PC URN TO USER 
024114 006203 2$: ASR R POSITION THE MASK FOR THE LAST DIGIT 
024116 006001 3$: ROR R1 ;3POSITION THE BINARY NUMBER FOR 
024120 006000 ROR RO 33 THE NEXT OCTAL DIGIT 

024122 006001 ROR R1 
024124 006000 ROR RO 
024126 006001 ROR R1 

24130 006000 ROR RO 
024132 040302 BIC R3,R2 ::MASK OUT ALL JUNK 

24134 062702 000060 ADD #°0,R2 ; SMAKE THIS CHAR. ASCII 

024140 753 BR 1$ PUT IT IN THE *DATA TABLE 

024142 SOCTVL: .BLKB 14. «RESERVE DATA TABLE 
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ERROR MESSAGES 

































41 6 _SBTTL ERROR MESSAGES 

4127 024160 116 117 124 €M1: “ASCIZ 2NOT THE CORRECT TRAP CONDITION THROUGH ERRVEC (#004)? 

4128 b24245 125 11€ 105 me: ? ECTED CPU TRAP THROUGH ERRVEC (#004)? 

4129 024317 125 116 105 7 CTED MEMORY MANAGEMEN MEMORY MANAGEMENT STATUS REGISTERS? 
4130 024425 123 125 115 7 Y OF MAP REGIST TIMED OUT 0” READ? 

4131 024505 123 125 115 2 Y OF DUAL ADDRE ON LOADING MAP REGISTERS? 

138 024600 123 125 115 2 Y OF BIT PATTERN FAILURES IN LOWER 16 BITS OF MAP REGISTERS? 
413 024702 123 125 115 2 Y OF BIT PATTERN FAILURES IN UPPER 6 BITS OF MAP REGISTERS? 
4134 02500 103 101 116 I GET TO MAIN MEMOR BUS WITH THE MAP OFF?<CRLF> 
4135 025071 123 117 040 2 UMPING TO THE SIZ T FOR VERIFICATION? 

4136 025155 123 125 115 2 Y OF COUNT PATT ON THE UNIBUS DATA PATH? 
4137 025247 125 116 111 2 MAP IS RELOCAT ENABLED? 
4138 025 103 101 116 . 4 T USE ANY OF THE TERS OR PHYSICAL?<CRLF> 
4139 025401 101 104 104 1 ADDRESS BIT14 IS STUC RESTART PROGRAM?<CRLF> 
0 02 111 106 040 2 ?IF YOU DON'T LOOP ON THIS 2? 
4141 0255¢5 123 125 115 2 ?SUMMARY OF UNIBUS ADDRESS ERRORS, WITH THE MAP RELOCATION DISABLED? 
é 115 101 111 2 2MAIN MEMORY TIMEOUT OVER THE UNIBUS DID NOT OCCUR PROPERLY? 
4143 025723 122 105 114 2 RELOCATION THROUGH THE MAP WAS NOT CORRECT, CARRY PROPAGATION? 
4144 0 116 117 040 7 ?NO UNIBUS MEMORY EXISTS? 
4145 026051 111 116 124 7 ?INTERRUPT/ABORT LOGIC TESTS TRAP TO LOCATION 114 DID NOT OCCUR? 
4146 026150 111 116 124 7 ?INTERRUPT/ABORT TESTS R4 WAS OVERWRITTEN WITH? 
4147 026226 111 116 124 7 ?INTERRUPT/ABORT TESTS TRAP DID NOT OCCUR DUE TO ABORT? 
4148 026314 114 115 101 72 ?LMA NOT LOADED PROPERLY? 
4149 026344 114 115 101 7 ?LMA FORCE JUMPER BIT NOT ZERO? 
026402 114 115 101 2 ?LMA FORCE JUMPER BIT NOT SET? 
4151 026437 114 115 101 7 ?LMA CONTROL BITS INCORRECT? 
4152 026472 106 117 122 2 FORCE JUMPER BIT FAILS TO REVERT MAP REGISTER STATUS TO DEFAULi? 
4153 026572 113 111 120 2 ?KIPARS NOT LOADED PROPERLY? 
026625 124 110 105 2 ?THE FOLLOWING REGISTERS TIMED OUT WHEN READ? 
4155 026701 124 110 105 7 ?THE FOLLOWING ARE DUAL ADDRESSING ERRORS IN THE UNIBUS MAP? 
4156 026774 124 110 105 7 ?THE BIT PATTERN T HE MAP REGISTERS FAILED? 
4157 02705 125 116 111 7 ?UNIBUS DATA PATH COUNT PATTERN FAILURE? 
4158 027124 125 116 111 7 ?UNIBUS ADDRESSING ERRORS, MAP RELOCATION DISABLED? 
4159 027206 104 101 124 2 DATA PATTERN NOT CORRECT? 
4160 027237 122 105 106 7 REFERENCED MAP REGISTER 0 WITH ADDRESS ONE BIT DIFFERENT THAN 17770200? 
027346 115 101 120 2 MAP REGISTER(S) UNDER TEST DID NOT RESPOND IN DUAL MAPPING TEST? 
4162 027446 122 105 114 1 ?RELOCATION THROUGH THE MAP WAS NOT CORRECT. CARRY PROPAGATION?<CRLF > 
4163 027544 124 105 123 7 TEST CODE BEING RUN OVER UNIBUS? 
027 115 101 111 1 ?MAIN TIMEOUT OVER THE UNIBUS DID NOT OCCUR PROPERLY?<CRLF> 
4165 027677 124 105 123 2 ?TEST C ING RUN OVER UNIBUS? 
166 027737 115 101 120 7 MAP RE R ENABLED WHEN DDW SAYS IT SHOULD BE DISABLED? 
4167 030030 115 101 120 7 MAP RE R DISABLED WHEN DDW SAYS IT SHOULD BE ENABLED? 
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DATA HEADERS 














168 
169 030121 105-103 CIZ 2RECEIVD EXPECTD TESTNO ERR PC? 
4170 030160 105 103 DH2:  .ASCIZ ?RECEIVD TESTNO ERR PC? 
$121 030207 124 101 DHS: SSCL 2STATUS, AUTOI/D VIRTUAL 2<CRLF> 
«Ne Os0es7 188103107 “ASCIZ ?REGISTR REGISTR ADDRESS TESTNO ERR PC? 
41730 122 105 #107 DH4: ASCII 2REGADRS REGADRS?<CRLF> 
4174 030330 040 «= 042—iéd1z07 “ASCIZ 2 “OR 'AND'’ = WERRORS TESTNO ERR PC? 
4175 030403 122 105 #107 DHS: ASCII 2REGLOAD REGLOAD REGDUAL REGDUAL?<CRLF> 
4176 030451 040 042 #117 “ASCIZ ?.""OR AND $_TESTNO? 
4177 030540 115 101 120 DH6:  :ASCIJ 2MAPREG  MAPREG  EXPECTD EXPECTD RECEIVD RECE!VD?<CRLF> 
4178 030624 = 040421 “ASCIZ ? AND ‘OR AND’ ‘OR’ ‘AND’ WERRORS TESTNO? 
4179 030727 s(«+124.~=Ssi«d105-)—='=i(‘éiésd23-s«*HO: ~=—««WASCIZ «2TESTNO ERR PC MMR3? 
4180 030754 105 #130 #120 DH11: ASCII 2EXPFCTD EXPECTD RECEIVD RECEIVD?<CRLF> 
4181 031022 «896 040 —s«H2Sts«éi1*T?? “ASCIZ 2 “0K AND ‘OR AND’ = #ERRORS TESTNO? 
4182 031111 103 117 116 DH15: ASCII 2CONDITN CONDITN?<CRLF> 
4183 031131 105 130 120 “ASCIZ 2EXPECTD RECEIVD TESTNO ERR PC? 
4184 031170 124 105 123 DH23: <ASCIZ 2TESTNO ERR PC LMAEXP —LMARCV? 
4185 031231 1246 105 #123 DHes: -ASCIZ ?TESTNO ERR PC LMAEXP LMARCV? 
4186 031270 124 #105 123 DH27: -ASCIZ 2TESTNO ERR PC LMARCV KIPAR4? 
4187 031327, = 124~=Ss«105—='(ws«éd3s«D3O: © CASCIZ ©2TESTNO ERR PC PRSEXP PRSRCV? 
4188 031366 122 105 + #107 DH201: .ASCIZ 2REGADRS TESTNO ERR PC? 
4189 031415 115 101 120 DH202: .ASCII] 2MAPREG  MAPREG = NON-ZER?<CRLF> 
4190 031451 124 105 123 “ASCIZ 2TESTING DUALED — CONTNTS TESTNO ERR PC? 
4191 031524 122 105  # #107 DH203: .ASCIZ 2REGADRS PATTRN EXPCTD RECEVD TESTNO ERR PC? 
4192 031605 105 130 120 DH204: .ASCIZ ?EXPECTD RECEIVD ADDRSLOAD TESTNO ERR PC? 
4193 031656 101 104 #104 DH205: .ASCII ADDRESS ADDRESS?<CRLF 
4194 031700 105 130 120 “ASCIZ ? PC? 
4195 031743 101 104 #104 DH206: .ASCIZ ADDRESS EXPCTD RECVED TESTNO ERR PC? 
4196 032013 101 104 ++ 104 DH207: .ASCIZ 2ADDRUSED BITDIFF TESTNO ERR PC? 
4197 032054 124 105 #123 DH210: .ASCIZ ?TESTNO ERR PC ? 
4198 032106 103 #117 22 DH211: ASCII] 2CORRECT  EXPECTD RECEIVD?<CRLF> 
4199 032140 101 104 104 ‘ASCIZ ADDRESS DATA _ FROM UB TESTNO ERR PC? 
4200 032211 103 117 116 DH212: <ASCII 2CONDITN 
4201 032231 105 130 120 -ASCIZ 2EXPECTD RECEIVD TESTNO ERR PC? 
4202 032270 = 124 = 105123. ‘D213: -ASCIZ 7TESTNO ERR PC REG NO DDUDAT DDUADR? 
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SEQUENCE 


* ERRCNT,$TESTN,O 


1326 020146 DTI: WORD  PCPUER, CPUEXP.$TESTN,BADPC,0 

0146 001340 DTe: "WORD PCPUER.$TESTN.BADPC 

1352 001354 ODT3: “WORD PMMR 1,PMMR2,$TESTN,BADPC,0 

1232 001320 DTé4: "WORD ADDROR,ADRAND, ERRCNT, STESTN, SERRPC 0 

123 001246 DTS:  .WORD ADDROR.ADRAND.DATAOR.DATAND.ERRCNT .$TESIN, 0 
1 001 54 DTé6: "WORD ADDROR.ADRAND..PATTOR.PATAND .DATAOR .DATAND 
1114 172516 DT10: .WORD $TESTN,SERRPC.MMR3,0 

1252 001246 DT11:  :WORD PATTOR.PATAND.DATAOR,DATAND,ERRCNT,STESIN,O 
1236 001246 DT14:  .WORD ADDROR.ADRAND,DATAOR,DATAND,ERRCNT,$TESIN,O 
1330 020146 DT15:  .WORD XP. PCPUER. N,SERRPC, 

1114 005764 DT23:  .WORD $TESTN.SERRPC.EADRES,EADRS2,0 

1114 001162 DT24:  .WORD $TESTN,SERRPC,$REG1 0 

1114 001174 DT26: .WORD $TESTN,SERRPC.$TMPO,$REG2,0 

1114 001174 bTe?: “WORD $TESTN,SERRPC, TMPO -KIPARG ,0 

1114 001206 DT30: .WORD $TESTN,SERRPC.$TMP5S,KIPARS,O 

0146 001114 DT201: {WORD EADRES, N, SERRP 

5764 001202 DT 02: -WORD  EADRS -EADRES STMP3. $TESTN, SERRPC,0 

1174 001170 DT203: .WORD EADRS2.$TMPO,$REG4.$REG3,$TESTN, SERRPC 0 
1176 001164 DT204: .WORD $TMP1 $TESTN.SERRPC 0 

5770 020146 DT205: .WORD EADRES,EADRS2,$TESTN, SERAPC,0 

1204 001206 DT206: -WORD EADRES.$TMP4,$TMP5,STESTN, SERRPC,0 

1160 020146 DT207: .WORD EADRES,$REGO,$TESTN, SERRPC,O 

1114 005764 DT210: {WORD $TESTN.$ERRPC,EADRE 

1166 001164 DT211: {WORD EADRES.$REG3, $REGZ,$TESTN, SERRPC,0 

1330 020146 DIgt¢: "WORD CPUEXP.PCPUER, STESTN, SERRPC 

1114 001174 DT213: .WORD $TESTN.SERRPC.$TMPO,$TMP1,$REG5,0 
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SYMBOL TAB 
ABASE = 000000 BITO = 000001 DDISP = 177570 DT 1¢ 032754 FJBIT = 000100 
ACDW1 = 000000 BITOO = 000001 DFMSG poet ey DT21 03 £66 FLAG 001324 
CDWe = 000000 BITO1 = 000002 DF 1 033641 DT23 032530 FLOATR 005774 
ACPUOP= 000000 Bit = 000004 DF11 033671 DT24 032542 FTTHRU 003532 
ADD 001236 BITOS = 000010 DF14 033677 DT § 032554 1 007043 
ADDWO = 177777 B1T04 = 000020 DF201 033711 DT 035308 GMRMOD 7046 
ADDW1 = 177777 BITOS = 000040 DF204 033717 DT 032362 HIADRS= 177742 
ADDW10= 000000 BIT06 = 000100 DF210 033724 DT30 035900 HIGEST e689 
ADDW11= 000000 B1T07 = 000200 DF 23 033705 DT4 032376 HITMIS= 177752 
ADDW12= 000000 BITO8 = 000400 DF4 033646 DT5 032412 HT = 000011 
ADDW13= 000000 B1TO9 = 001000 DF5 033653 DT6 032430 IBSAVE 020702 
ADDW14= 000000 BIT1_ = 000002 DF6 033661 EADRES 005764 IOTVEC= OeeeaS 
ADDWi5= 000000 BIT10 = 002000 DH1 030121 EADRS2 005770 MPMSG 033002 
ADDW2 = 000000 BIT11 = 004000 DH10 030727 EMTVEC= 000030 KDPARO= 172360 
ADDWS = 000000 BIT12 = 010000 DH11 030754 EM1 024160 KDPAR1= 172362 
ADDW4 = 000000 BIT13 = 020000 DH15 031111 EM10 062002 KDPAR2= 172364 
ADDWS = 000000 BIT14 = 040000 DH2 030160 EM11 025155 KDPARS= 172 
ADDW6 = 000000 BI1T15 = 100000 tt 031366 EM12 06366! KDPAR4= 172370 
ADDW7 = 000000 BIT2 = 000004 DH20 031415 EM13 025321 KDPARS= 172372 
ADDWS = 000000 BITS = 000010 DH20 031524 EM14 025525 KDPAR6= 172374 
ADDWI = 000000 BIT4 = 000020 DH204 bee # EM15 025650 KDPAR7= 172376 
ADEVCT= 000000 BITS = 000040 DH205 0 1g $ EM16 06053 KDPPRO= 17232 
ADEVM = 000000 BIT6 = 000100 DH206 8603174 EM17 026021 KDPDR1= 172322 
001232 BIT7 = 200 DH207 032013 EM2 024245 KDPDR2= 172324 
ADREXT 003674 BIT8 = 00 DH210 032054 EM20 026051 K = 172326 
= 000000 BIT9 = 001000 DH211 032106 EM201 0 KDPDR4= 172330 
= 000000 BPTVEC= 000014 DH 16 03 oH EM20 026701 KDPDR5= 172332 
AFATAL= 000000 1276 032270 EM20 026774 K = 172334 
= 000000 CACHE = 177746 23 Oey oey E 027055 KDPDR7= 172336 
AMADR2= 000000 CACHVE= 000114 DH24 031231 EM205 027124 KERSTK= 001100 
AMADR3= 000000 CASHSR 005324 DH2e7 031270 E B8 0 2g0e KIP 172340 
AMADR4= 000000 CASH 5460 DH 0 7 EM20 027237 KIPARI= 172342 
AMAMS1= 000000 CASH2 005470 DH30 031327 EM21 026150 KIPAR2= 172344 
= 000000 CHARCT 5760 EM210 027346 KIPARS= 172346 
AMAMS3= 000000 CHKLMA 005076 DH5 03040 EM211 027446 KIPAR4= 172350 
= 000000 CHKPAT 005 30540 E ¢ ree KIPARS= 172352 
AMSGAD= CLRMAP 00277 LA 1140 EM21 7737 KIPARG= 172354 
AMSGLG= 000000 CMPE = 177744 DISPRE 174 EM214 30 KIPAR7= 172356 
AMSGTY= 000000 CNTR 0013 D D or 3ea0 E $ 026226 KI 172300 
AMTYP1= 000000 CONTRL= 177746 DSWR = 177570 E 026314 KIPDRI= 1723502 
AMTYP2= 000000 CPFLAG 0032 T 005740 EM24 age “ KIPDR2= 172304 
AMTYP5= 000000 CPSAVE 020700 DTMSG or: EM25 on08 KIPDR3= 172306 
AMTYP4= 000000 CPUER 003222 032340 EMee 0264 KIPDR4= 172310 
APASS = 000000 CPUERR= 177766 DT10 0 725 E 02647 KIPDRS= 172312 
IOR= 000000 CPUEXP 001326 DT13 03246 E 02431 KI = 172514 
APTCSU= 000040 CPUMSG 00€~°0 DT14 032500 EM30 0 o20¢ KIPDR7=_ 172316 
APTENV= 000001 CPUTYP 00. | .0 DT15 032516 EM4 0 tet KSP = 
APTSIZ= 000200 CR = 4h 63 35 EMS 024505 LF = 000012 
APTSPO= 000100 CRLF = 000200 DT201 03261 ene 0 ret LKS = 177546 
= 000000 CTRAPS= 000116 DIsns $350 EM 4702 LKVEC = 0001 
ATESTN= 000000 CTRAPV= DT20 32636 ENABL 3458 L 001 
AUNIT = 000000 DATA 001364 DT204 032654 ERRCNT 001520 LMAHI = 177736 
= 000000 DATAND 001242 DT205 03 $70 ERROR = 104000 L 
AVECT1= 000000 TAOR 001246 DT206 03 02 ERRVEC= 0 L 
AVECT2= 000000 DATEXT 003624 DT207 032716 ERTYPE 002026 LOADRS= 177740 
BADCPU 006607 DATO = 100000 DT210 3 730 R200 OSes LOEFLG 
BADPC 3 001340 DATOB = 140000 DT211 032740 xTOUT 005762 L 
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SYMBOL TABL 
LOWEST OO ea8 mr le 170250 PATEXT Op 7o38 PAR7= 172276 $W13 = 020000 
LREGL 001300 MAPL13= 170254 PATRNS 006102 SDPDRO= 172220 SW14 = 040000 
LREGU 0013502 MAPL14= 170260 PATTOR Op 182 SDPDR1I= 172222 $W15 = 100000 
MAINT = 177750 MAPL15= 170264 ONTR 001334 SDPDR2= 172224 SW = 4 
MAPADD 004106 MAPL16= 170279 PCPUER 001330 SDPDR5= 172226 SW = 000010 
MAPHO = 170202 MAPL17= 170274 IRQ = 177772 SDPDR4= 172230 SW4 = 000020 
= 170202 MAPL2 = fa 48 PIRQVE= at eh SDPDR5= 172232 SWS == 000040 
MAPHO1= 170206 MAPL20= 170300 PMAINT 001336 SDPDR6= 17 $ S = 000100 
MAPHO2= 170212 MAPL21= 170304 PMBE CD op sehe SDPDR7= 172236 Siw = 000200 
MAPHOS5= 170216 any 170310 PMBECF 0025356 SIPARO= 172240 SWB == 000400 
MAPHO4= 170222 MAPL23= 170314 PMBECH 002476 SIPARI= 172242 SW9 = = _~(001 
MAPHOS= 170226 MAPL24= 170320 PMBECM 002442 SIPAR2= 172244 SYSTID= 177764 
= 170232 MAPL25= 170324 PMBECW 002432 SIPARS= 172246 TBIT = 000020 
MAPHO7= 170236 MAPL26= 170330 PMMRO 001350 SIPAR4= 172250 TBITO = 104413 
MAPH] = 170206 MAPL27= 170334 PMMR1 001352 SIPARS= 172252 TBITOF 002726 
MAPH10= 170242 MAPL3 = 170214 PMMR2 001354 SIPAR6= 172254 TBITR = 104414 
MAPH11= 170246 MAPL30= 170340 PPARER 001332 SIPAR7= 172256 TBITRE 002754 
MAPH12= 170252 MAPL31= 170344 PRETST 005166 SIPDRO= 17 soo TBITVE= 000014 
MAPH135= 170256 MAPL32= 170350 PRO = 000000 SIPDRI= 172202 TCPMRA 004416 
MAPH14= 170262 MAPL33= 170354 PR1 = 000040 ee 172204 TIMEOU 0030 
MAPH15= 170266 MAPL34= 170360 PR2 = 000100 SIPDRS= 172206 TIMOUT= 000020 
MAPH16= 170272 MAPL35= 17036 PR3 = 000140 SIPDR4= 172210 TKVEC = 000060 
MAPH17= 170276 MAPL36= 170370 PR = 44 tr SIPDRS5= 172212 TOFLAG 003032 
MAPH2 = 170212 MAPL37= 170374 PRS = 000240 SIPDR6= 172214 TOMSG 006261 
170302 MAPL4 = 170220 PR6 = 000300 SIPDR7= 172216 TPVEC = 
MAPH21= 170306 MAPLS = 170224 PR7 = 000340 SIZEHI= 177762 T = 34 
MAPH22= 170312 MAPL6 = 170230 PS = 177776 SIZEJO 012744 TRIVEC= 14 
MAPH235= 170316 MAPL7 = 170234 PSW == 177776 SIZEJ1 013154 TSTLOC 003474 
MAPH24= 170320 MASK1 005776 PTMP2 005000 SIZEJ2 013402 TST 010676 
MAPH25= 170326 MASK2 006 G 025774 SIZELO= 177760 TST1O0 014616 
MAPH26= 170332 MEMERR= 177744 VEC= 2 SPECST pa a TST11 §©015072 
MAPH27= 170336 MFPT = DCHR = 104406 SRO = 177572 TST12 015140 
MAPHS = 170216 MMFLAG 003374 RDLIN = 104407 SRI 9 = 177574 TST13) §=©6015174 
MAPH30= 170342 MARHI 001270 RDOCT = 104415 “t = 177576 TST14 015334 
MAPH51= 170346 MMRLOW 001266 RELC22 011672 SR = 172516 TST1S 015362 
MAPH3S2= 170352 MMRO = 177572 ESREG= 104412 SSP =%000006 TST16 §©015420 
MAPH33= 170356 MARI = 177574 RESVEC= 1 STACK = 001100 TST17 =©.015450 
MAPH34= 170362 ‘MAR2 = 177576 ETR 1 START oe TST2 011122 
MAPH35= 170366 MMRS = 172516 RSIZE 1356 STKLMT= 177774 TST20 015610 
MAPH36= 170372 MMTOTM 020014 R10 4444 SUPSTK= oper ee TST21 015744 
MAPH37= 170376 MMTRAP 0033572 R11 9 =% 1 SWR 0011 TST22 16220 
MAPH4 = 170222 MMVEC = 00025 R1 sh ¢ SWREG 000176 TST23 16266 
MAPHS = 170226 S 006754 R1 = SwO = 000001 TST24 016474 
MAPH6 = 170232 NEWSWR 006161 R14 = SWwOO = 1 TST25 016540 
MAPH7 = 170236 NE XME 0 R15 = 5 SWO1 = 2 TST26 016702 
MAPLO = 170200 NEXT 003552 R3STAK 14 SWwO2 = TST2? 017036 
MAPLOO= 170200 E 006421 R6 =%000006 SWwO5 = is dh TST3 011444 
MAPLO1= 170204 NOMSG 013646 R7 =%000007 SWO4 = 20 TST 017164 
MAPLO2= 170210 NUMOFK 001316 SAVREG= 104411 SwWOS = 000040 TST31 «= 017412 
MAPLOS= 170214 NXTTST 001362 OPE = 4 S = 100 TST32 = 021576 
MAPLO4= 170220 OLDPC 001342 SDPARO= 60 SWO7 = 200 TST4 011762 
MAPLO5= 170224 OLDPS 001344 SDPAR1= 62 SwO8 = 00 TST5 012242 
MAPLOG= 170230 OLDPSW 001346 SDPAR2= 64 SwO9 = 001000 TST 016938 
MAPLO7= 170234 PADRSH 001230 SDPAR5S= $8 Swi = 2 TST 013712 
MAPL1 = 170204 PADRSL 001226 SDPAR4= 0 SW10 = 00 TYPDAT= 002244 
MAPL10= 170240 PATAND 001252 SDPAR5= fe SWii = 94 TYPDS = 104405 
MAPL11= 170244 PATCH 007142 SDPAR6= 74 SWi2 = 010000 TYPE = 104401 
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TYPOC = 104402 USESTK=_ 000600 $DOAGN Oe aoe SMBADR 0 000 SSVPC = m0 784 
TYPON = 104404 USP =%000006 $DTBL ; 176 SMFLG 021 SWR = 177400 
TYPOS = 104403 YESMSG 013542 SENDAD 2024 SMNEW 470 SSWREG aa ee 
TYPVAD 002542 SAPTHD 020000 SENDCT 021644 SMSGAD 0156 $SWRMK = 340 
002650 SATYC Oe 1336 SENULL 0 $109 SGLG 0160 $TBIT oo he 
UBMAVA 006125 SATY1 021330 SENV 0 196 SMSGTY 0 R156 $TESTN 020146 
ND 006174 SATY3) 021336 SENVM § 02016 S 8 758 STIMES 001212 
UBMHI 001264 SATYS 021346 SEOP 021576 SMTYP1 017 $TKB 001144 
UBMLOW 001262 SAUTOB 001132 SEOPCT 021636 SMTYP2 020177 $TKS 001142 
UBMSU =: 015236 SBASE 020216 SERFLG 001101 SMTYPS 0 bg03 STMPO) 38=—- 001174 
UBM24L 001310 $BDADR 001120 E 001113 SMTYP4 020 A STMP1 001176 
UBM24P 001314 SBDDAT 001124 ERROR 020704 SMXCNT 06 § STMP 001200 
UBM24U 001312 $BELL 001216 SERRPC 001114 SNULL 115 STMP 001202 
UBRHI 001274 $SCDW1 020222 SERRTB 001366 SNWTST= 1 STMP4 001204 
UBRLOW 001272 $CDW2 020224 SERTTL 001110 SOCNT 022766 STMPS 001206 
UDPARO= 177660 SCHARC 022540 ESCAP 1214 SOCTVL 0 3136 STMP6 §=6—6.001210 
UDPAR1= 177662 SCLR.T 022014 SETABL 020162 02277 STN = 000032 
UDPAR2= 177664 SCMTAG 001100 020266 SOVER $TPB 001150 
UDPARS= 177666 $CM1 = 000006 SFATAL 020144 SPASS 0150 STPFLG 001155 
UDPAR4= 177670 $CM2 = 000014 SFFLG 021574 SPASTM STPS 001146 
UDPARS= 177672 SCM5 = SFILLC 1154 SPWRAD 8 STRAP 023520 
UDPAR6= 177674 SCM4 = 7 SFILLS 001153 $PWRDN 10 STRAP2 023542 
UDPAR7= 177676 SCNTLG 023471 GDADR ABEL SPWRMG 025744 STRP = 
177620 SCNTLU 023 SGDDAT 138 SPWRUP STRPAD 023554 
UDPDR1= 177622 $C 020170 T42 021776 SQUES 122 STSTM 60 
UDPDR2= 177624 SCRLF 001223 = SRDCHR 16 STSTNM 001100 
UDPDR3= 177626 $DBLK 023206 SHIBTS oe SRDLIN 6 STTYIN 023454 
UDPDR4= 177630 $DB20 024040 SHIOCT 5 $RDOCT 5630 STYPDS 022772 
UDPDRS= 177632 DWO 020226 SICNT oon SRDSZ = 000010 STYPE 02 
= 177634 $DDW1 020250 UP nes/ ee SREGAD Ootias STYPEC 022412 
UDPDR7= 177636 $DDW10 020252 SINTAG 11 SREGO 1160 STYPEX O22 
UIPARO= 177640 $DDW11 020254 001112 $REG? 001162 STYPOC 022570 
UIPAR1= 177642 $DDW12 020256 $ oa1§ & aenck 1164 STYPON 0 
UIPAR2= 177644 $DDWi3 020260 021573 SRE 1166 STYPOS 022544 
UIPARS= 177646 $DDW14 020262 2072 SREGS 1170 If 020154 
UIPAR4= 177650 SDDW15 020264 1] SREGS oeete5 SUNITM 020010 
UIPARS= 177652 $DDW2 020232 11 SRESRE 02214 020166 
UIPAR6= 177654 SDDWS 020234 176 T 74 SVECT1 020212 
UIPAR7= 177656 SDDW4 020236 0 SRT 70 SVECT2 020214 
Ul = 177600 SDDWS5 020240 020204 SSAVRE 0221 SXOFF = 0000235 
UIPDR1= 177602 $D 020242 020210 SSAVR6 025772 $XON = 000021 
UIPDR2= 177604 $DDW7 020244 0 $6 $SCOPE S$XTSTR 020372 
UIPDR3= 177606 SDDW8 020246 02017 S$SETUP= 7 $SGET4= 000001 
UIPDR4= 177610 SDDW9 020250 0 BAS SSSWR oN $ SOFILL 022767 
UIPDR5= 177612 SDEVCT 020152 020202 SSTUP = 17777 -$8X = 020000 
UIPDR6= 177614 SDEVM 020220 020206 SSVLAD 020626 -$Y = 002026 
UIPDR7= 177616 
- ABS. 033727 


000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 56440 WORDS ( 221 PAGES) 
DYNAMIC MEMORY: 20034 WORDS ( 77 PAGES) 

ELAPSED TIME: 00:10:24 

CKKUAE .B IN, CKKUAE/CR/-SP/NL : TOC=CKKUAE .MLB/ML , CKKUAE.P11 
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SEQUENCE 139 
SYMBOL CROSS REFERENCE CREF 01 
SYMBOL VALUE REFERENCES 
ABASE = 000000 -4095 91-4095 
ACDWi = 000000 91-4095 91-4095 
ACDW2 = 000000 1-4095 91-4095 
ACPUOP = porate 91-4095 91-4095 
001 #21-14 #41-2228 “31-0683 *92-4097 92-4097 106-4208 106-4209 106-4210 106-4213 
ADDWO = 177777 #89-406 91-4995 91-4095 
ADDW1 = 177777 #89-4066 91-4095 91-4095 
ADDW10 = 000000 91-4095 91-4095 
ADDW11 = 000000 91-4095 91-4095 
Soule = 000000 91-4095 91-4095 
ADDWi5 = 000000 91-4095 91-4095 
ADPW14 = 000000 91-4095 91-4095 
ADDW15 = 000000 91-4095 91-4095 
— = 000000 91-4095 91-4095 
ADDW = 000000 91-4095 91-4095 
\0DW4 = 000000 91-4095 91-4095 
4DDWS = 000000 ~4095 91-4095 
ADDW6 = 000000 91-4095 91-4095 
ADDW7 = 000000 91-4095 91-4 
ADDW8 = 000000 ~4095 91-4095 
ADDWS = 000000 91-4095 91-4095 
ADEVCT = 000000 ~4095 91-4095 
ADEVM = 000000 91-4095 91-4095 
ADRAND 001232 #21-1496 =#41-2230 39 41-2245 *Pe-S000 *92-4097 106-4208 106-4209 106-4210 106-4213 
ADREXT 003674 35-2057 #41-2220 56-2828 57-2897 59-2975 68-3352 68-3374 69-3445 
AENV = 000000 91-4095 91-4095 
AENVM = = 000000 91-4095 91-4095 
AFATAL = 000000 91-4095 91-4095 
AMADR1 = 000000 91-4095 91-4095 
AMADR2 = 000000 91-4095 91-4095 
AMADRS = 000000 91-4095 91-4095 
AMADR4 = 000000 91-4095 91-4 
AMAMS1 = 000000 -4095 91-4095 
AMAMS2 = 000000 91-4095 91-4095 
AMAMS3 = 000000 ~4095 91-4095 
AMAMSS = 000000 91-4095 91-4095 
AMSGAD = 000000 91-4095 91-4095 
= 000000 91-4095 91-4095 

TY = 000000 91-4095 91-4095 
AMTYP1 = 000000 ~4095 91-4095 
AMTYP2 = 000000 91-4095 91-4095 
AMTYPS = 000000 ~4095 91-409 
AMTYP4 = 000000 91-4095 91-4095 
APASS = 000000 91-4095 91-409 

I = 000000 91-4095 
APTCSU = 000040 #94-4101 97-4107 
APTENV = 000001 93-4099 94-4101 #94-4101 97-4107 
APTSIZ = 000200 #94-4101 
APT = 000100 94-4101 #94-4101 97-4107 
A = 000000 91-4095 91-4095 
ATESTN = 000000 91-4095 91-4095 
AUNIT = 000000 91-4095 91-4095 
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SEQUENCE 140 
SYMBOL CROSS REFERENCE CREF  vO1 
SYMBOL VALUE REFERENCES 
: 91-4095 91-4095 
AVECT? = 000000 91-4095 91-4095 
AVECT2. = 91-4095 91-4095 
C "53-2625 §4-2713 
'BADPC = 001340 W21-1496 36-2092 *37-2128 1064205 106-4206 106-4207 
2.710 = (000001 #171689 38-2155 38-2160 38-2936 42-3080 65-31 79-3745 793751 
BIT00 = 000001 #17-1489 17-1489 «50-2487 «92-4097 ~—-92=4097 -4099 93-4099 
BITO1 = 000002 #17-1489 17-1489 
BiTO2 = 000004 #17-1489 —-17=1489 
BITO3 = 000010 #17-1489 —-17-1489 
BIT04 = 000020 #17-1489 - 17-1489 
BITOS = 000040 #17-1489 17-1489 
BITO6 = 000100 #17-1689 17-1489 50-2505 50-2509 
BITO? = 000200 417-1489 17-1489 «50-9524 
BITO8 = 000400 #17-1489 17-1489 50-2488 50-2540 92-4097 
BITOS9 = 001000 #17-1489 17-1489 «55-9781 +~—«$7=2909 += 59-2988  —«92~4097 «93-4099 
BIT] = 000002 #17-1489 
BIT10 = 002000 #17-1489 93-4099 
BIT11 = 004000 17-1689 42-2286 44-2364 46-2429 5942957 68-3520 68-3359 73-3526 90-4078 
BIT12 = 010000 #17-1489 50-2489 50-2541 —-95=4103 
BITI3 = 020000 #17-1489 93-4099 
BIT14 = 040000 #17-1489 83-3851 «84-3877 B4-38B2.~—s--BS-3904 «92-4097 
BITIS = 100000 #17-1489 45-2404 
BIT2 = 000004 #17-1489 
BITS = 000010 #17-1489 
BITS = 000020 16-1460 17-1489 32-1977 58-2937 
BITS = 000040 #17-1489 34-2011 «83-3127 69-3412. «70-3473. 72-3510 ~Ss« 87-3974 
BIT6 = 000100 417-1489 78-3690 
BIT? = 000200 #17-1489 
BIT8 = 000400 417-1489 
BIT9 = 001000 ¥17-1489 56-2834 61-3060 «68-3349 «469-3456 = 81-3823. 83-3864 «84-3891 «85-3917 
BPTVEC = 000014 417-1489 
MN. Wise Bete Oa e 8a ee 88-3802 50-2505 *50-2509 50-2513 *50-2524 50-2535 
= _ ® cs sd * t 2 
Alt a ary 
CACHVE = 000114 #17-1489 
CASHSR 005324 450-2487 77-3651 «78-3701 
CASH] 005460 #50-2512  *77-3649  +*78-3699 
CASH2 «005470 #50-2516  *77-3650 *78-3700 
CHARCT 005760 #52-2599 
LMA «005076 38-2168 42-2281 44-2561 446-2425 68-3526 68-3345 68-3354 
CHKPAT #50-2547 56-2817 56-2831 
CLRMAP 2772 #34-2008 57-2882 40-3012 68-3284 
(MPE = ‘177744 #16-1465  *50-2510 «50-2534 
CNTR 001322 #21-1496 
CONTRL = 177746 #17-1489 
c 003224 136-2083 36-2099 *36-2102 936-2107 +54-2740  *93-4099 
CPSAVE 020700 *92-4097 92-4097 92-4097 93-4099 93-4099 
CPUER _ 0032e2 #36-2082 54-2734 “3787 : 
CPUERR = 177766 17-1489 $5-2062  *$5-2043 36-2091 *36-2108 #54-2743  *95-4099 
CPUEXP 001326 421-1496 35-2039 «35-2044 «35-2053 36-20 36-5097 36-2106 844-2345 844-2350 
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SEQUENCE 141 
SYMBOL CROSS REFERENCE CREF v01 
SYMBOL VALUE REF erence S 
e44-2353 *44-2355 *54-2736 #592962 © ¥59-2964 059-2967 #59-2969 #59-2977 #5 9-2979 
“59-2990 59-2992 60-3017 *60-$019  +60-3032 60-3034 =60-$044 #61- *62-3096 
62-8101 *65-8157 *65-3140 65-3148 #64°3175 064-3179, #6423182 965-3209 #65-S212 
n65-3215 s68-3512 =G8-3314 *90-4082 90-4087 106-4205 106-4214 106-4229 
CPUMSG 0062 W33-2620 *34-269 46-2693 54-2698 94-2699 
CPUTYP 007140 ~50 32-5049 36-9095 #53-9630 854-9684 54-2685 «54-2695 «552755 «= 77= 3638 
Bene ere te Oerettg 53-2620 «53-2620 «532621 -«$B+2622 «53-2623. «53-2624 
hog bh + a Co} A SS SS) kT) kT ST | Th Te 
10404162 10624164 10524171 10524173 105-4175 105-4177 105-4180 105-4182 105-4189 
105-4193 105-4198 105-4200 107-4282 107-452 107-4233 107-4234 107-4235 107-4236 
107-4237 107-4237 107-4238 107-4239 107-4240 
CTRAPS = 000116 #16-1468 50-2496 *50-2698 «50-2539 
CTRAPV = 000114 416-1467 50-9495. #50-2497 -#50-95 
DATA 001364 #211496 44-9346 #4G= 9381 8G 93BB 44-2389 44-2390 
DATAND 001242 951-1696 *39-5187 56-9861 -#92-4097 «106-4209 106-4210 106-4212 106-4213 
DATAOR 001246 #211496 *39-2185  *56-2859  *92-4097 106-4209 106-4210 106-4212 106-4213 
DATEXT 003624 ¥39-2185 56-2824 57-9901 61-3051 68-3335 69-3448 
To. = 100000 #86-3874 84-3881 
DATOB = ‘140000 #85-3901 85-3908 
DDISP = 1775 #17-1689 -1496 
DFMSG —«-006120 52-2597  #52-2616 
DF 033641 35-7501 29-1807 22-1514 «23-1548 «23-1561 «23-1569 «23-1583 24-1595 24-1601 
24-1608, 26-1616 24-1626 24-1682 24-1638 24-1646 25-1649 27-1723 27-1729 
DFI1 033671 25-1555, #108-4246 
DF IG 033677 53-1576 = 1684. #1084267 
DF201 «= s«O33771 56-1658 26-1671 26-1690 26-1696 +=. 27=1709 «= 27-1717 # 108-4249 
DF204 «033717 56-1677 #108-4250 
DF210 «= «33724 56-1702 #108-4251 
DF23 033705 54-1620 #108-4248 
DF4 033646 52-1591 #108-4.943 
DFS 033653 55-1598 23-1590 #1084244 
DFS 033661 55-1535 53-1541 26-1665 #108-4245 
DH1 030121 55-1499  #105-4169 
DHT0 030727 53-1546 23-1559 23-1567 «24-1593 26-1599 24-1606 ~~ 24-1612. #105-4179 
DHT1 030754 53-1552 33-1573 33-1587 #105-4180 
DH15 031111 53-1580  #105-41 
53-1505 #105-41 
1 56-1656  #105-4188 
DH202«Ss«é)8 1415 1662  #105-4189 
DH203 «= «31524 56-1669  #105-4191 
DH 031605 56-1675  #105-419 
DH205 (031656 -1681  #105-419 
03174 56-1688  #105-4195 
DH207 ~—Sts«32013 56-1694  #105-4196 
DH210 «= «320544 56-1700 #105-4197 
Dig) 032106 $7-1706 27-1714 + -#105-4198 
DH212«Ss«039271 #105-4200 
DHO13. «= sé 32270 27-1721 27-1727 «#1054202 
DH23 031170 54-1618  #105-4184 
DH2G 031231 54-1626 26-1630. 24-1636 #105-4185 
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SEQUENCE 142 


SYMBOL CROSS REFERENCE v01 
SYMBOL VALS REFERENCES 
~ 031270 $37 1996 #105-4186 
DH 030207 . 11.0 -#105-4171 
DH30 031 s/ § “1% wIRa 0195 
DH4 0303 2-1518 #105-4173 
DHS 030403 $- 1263 ph hae 3 
DH6 030540 2-1532 23-1538 #105-4177 
DISPLA 001140 #21-1496 47-2447 92-4097 93-4099 
DISPRE 000174 #18-1492 
D D O3ea0 #48-2459 63-3141 64-3183 65-3207 
DSWR = 177570 #17-1489 ¢\~ 1338 
005740 #52-2597 96-346 
DTMSG 005744 52-2597 #52-2598 
OT1 032340 22-1500 #106-4205 
DT10 032452 23-1547 23-1560 23-1568 24-1594 24-1600 24-1607 24-1615 #106-4211 
OT11 032462 23-1554 #106-4212 
DT14 032500 23-1575 23-1589 #106-4213 
DT15 032516 23-1582 #106-4214 
r4 032352 $¢~ 1308 106-4206 
DT201 032612 26-165 #106-4220 
DT202 032622 26-1664 #106-4221 
DT203 032636 26-1670 #106-422 
D 032654 26-1676 #106-4 § 
DT205 3267 26-1683 #106-4224 
032702 26-1689 #106-4225 
DT207 032716 26-1695 #106-4226 
DT210 032730 26-1701 #106-4227 
DT211 032740 27-1708 27-1716 #1064228 
DT212 032754 #106-4229 
DT213 032766 27-1722 27-1728 #106-4250 
DT23 530 24-1619 #106-4215 
DT24 032542 24-1625 24-1631 #106-4216 
DT26 554 24-1637 #106-4217 
DT27 032566 24-164 #106-4218 
DT3 032362 22-1513  #106-4207 
DT30 600 25-1648 3=#1 19 
DT4 032376 22-1520 #106-4208 
DTS 032412 22-1527 #106-4209 
DT6 032430 22-15 23-1540 #106-4210 
EADRES 005764 #41-2235  +%41-2236 -2247 pe 9k “ai-fh28 #4 ~3636 #42-2295) 8 9= #44-2371 3=— 44-2372 
#52-2601 %59-2987 *79- § *79-3763_ 88-4045 *92-4 106-4215 106-4220 106-4221 
106-4224 106-4225 ~4226 1 3085. 1 ase 
EADRS2 005770 bs Par “Teese ‘ #69~-344 *69-3450  *79-376 *79-3761 +*92-4097 106-4215 106-4221 
EMTVEC = 000030 #17-1489 54-26 54-2655 
EM 024160 22-1498 #104-4127 
EM10 02500 23-1544 = #1044134 
M11 025155 23-1551 104-4136 
EM12 025247 23-1558 AS og bt 
EM13 02532 23-1564 #104-4158 
EM14 025525 23-1572 3 =6#104-4141 
EM15 02 $3_\eer Ay om b ps 
EM16 025723 35-1586 #104-414 
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— REFERENCE 
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PAGE 5 
SEQUENCE 143 
CREF v01 
64-3177 65-3216 
9-1798  *35-2051 
56-2809 36-2841 
*68-3315 - $398 
106-4208 106-4209 
35-2047 35-2059 
57-2908 57-2919 
63-3146 63-315 
69-345 9-346 
aah tS 
eB2-3758 hen 78e 
29-1809 
80-3785 81-3797 
*38-2160  *38-2162 
55-2769 55-2770 
95-4103 95-4103 
101-4115 101-4115 
101-4115 101-4115 


seats 
7 4 6 


106-4210 


155-2787 


81-3798 
48-2465 


55-2757 


80-3786 
92-4097 


81-3801 
49-2478 


55-2759 
-2915 


*55-2778 
#57-2918 
*87-3986 


55-2793 
306 


*92-4097 


82-3835 


*92-4097 


82-3838 


- wey o 


rer wee 







A FF OF HF OF OF 


Fh UPR eR Oy CMD 1) tA OG OR 


| CKKUAE 


SYMBOL 
SYMBOL 


Sad 


CREATED BY MACRO ON 11-JAN-82 AT is 
CROSS REFERENCE 
VALUE 


eeu 


SSN NN NW 


at th tt I IOO 
SN NNN NNN NNN 
= NNANAANANNI AAW 
MVINVNINNNS 
ALM LMS 


AE FEFSUAAG 
oo f£NO Nm 


2 
31-1960 


101-4118 


*64-3167 
97-4107 


#107-4232 


30-1922 
wt ett 


58-2924 


*29-1777 


3 
32-1978 


PAGE 6 
UENCE 144 
CREF v01 

101-4118 
*64-3188 64-3189 
97-4107 

93-4099 *93-4099 
54-265 

58-2929 *73-3555 
«77-3637 *87-3991 
Se tate *79~-374 
*84-3876 *84-389 
“12 -Sen6 #45-2407 
44-237 #44- +88 
mre 74 64-31 

*® - _ 
sie Seay 
*81-3826 90-4075 
ms 1-307 
*44-2339 9-295 
“69-3014 *60-302 
69-3444 *88-401 
56-2827 57-2899 
Sama 
* - & - 
(50-1938 "30-1958 
32-1980 32-1981 


B 12 


65-3199 


*93-4099 


«77-3636 
79-3764 


fine 
£e 


1-30 
<89- $033 


S88 


68-3362 


93-4099 


«79-3750 
«79-3766 


68-3573 


68-3388 


93-4099 


«87-3990 
«79-3771 


*29-1839 


#35-2035 


81-3805 


93-4099 


83-3847 
54-2726 


*29-1845 


* 35-2061 


87-3979 


93-4099 


360 
*81-3810 


#59-2993 
69-3429 


-_ _—~—_— ———_ ee ee ee ee a ee 
ee - ee Ce ee — oe 


C12 





CKKUAE CREATED BY MACRO ON 11-JAN-82 AT 11:32 PAGE 7 
SEQUENCE 145 
SYMBOL CROSS REFERENCE CREF v01 
SYMBOL VALUE REFERENCES 
«36-2089 6-2090 *36-2109 *36-2110 37-2128 =*37-2129) = 37-2130 §3=— #3572137 = 357-2138 
LF = 000012 #17-1489 97-4107 97-4107 
LKS = 177546 #17-1489 
LKVEC = 000100 #17-1489 
LMAH 001304 #21-1496  +*68-3322 68-3327 +*68-3341 68-3346 LE 
LMAHI = 177736 #16-1475 38-2169 ac" 6658 at" $508 22 -Ga06 68-3 ¢¢ 68-3341 79-3757 79-3761 
80-3782 80-3784  *81-379 81-3798 81- 508 a Ph 4 82-3835 82-3837 83-3853 
-3860 84-3879 84-3887 85-3906 85-391 1 a 
LMAL 001306 #21-1496 68-3323 68-3327 "97-3825 68-3346 68-3355 
LMALOW = 177734 patie: 38-2169 42-2282 44-236 45-2394 45-2403 68-3323 68-3342 79-3755 
LOADRS = 177740 #17-1489 
LOEFLG 004312 42-226 42-2295 #422302 44-2329 2#44-2373 +*70-3474 71-3490 72-3511 *74-3568 
*75-3586 *76-3599 90-4071 *90-4091 
LOOP 0190606 54-2730 #54-2732 95-4103 
LOWEST 001256 #21-1496 42-2275 44-2339  +%64-3158 64-3159 67-3254 68-3289 68-3292 73-3551 
79-3748 79-3766 81- 303 87-3977 ~4075 
LREGL 001300 #21-1496 42-2274 44-2335 44-2383  +%67-3258 67-3260 68-3288 79-3752 90-4077 
LREGU 001302 a thr 42-2273 44-2334 44-2385 44-2586 %67-3260  +%67-3261 73-3545 79-3753 
MAINT = 177750 #16-1466 417-1489 = 50-2499 = 50-2536 
MAPADD 106 #42-2266 71-3492 75-3587 
= 170202 #17-1489 
= 170202 #17-1489 17-1489 56-2855 
= 170206 #17-1489 17-1489 
= 170212 #17-1489 17-1489 
= 170216 #17-1489 17-1489 
MAPHO4 = 170222 #17-1489 17-1489 
= 170226 #17-1489 17-1489 
MAPHO6 = 170232 #17-1489 17-1489 
= 170236 #17-1489 17-1489 
= 170206 #17-1489 
= 170242 #17-1489 
= 170246 #17-1489 
= 170252 #17-1489 
= 170256 #17-1489 
= 170262 #17-1489 
= 170266 #17-1489 
= 170272 #17-1489 
= 170276 #17-1489 
= 170212 #17-1489 
= 170302 #17-1489 
MAPH21 = 170306 #17-1489 
= 170312 #17-1489 
MAPH25 = 170316 #17-1489 
= 170320 #17-1489 
= 170326 #17-1489 
MAPH26 = 170332 #17-1489 
= 170336 #17-1489 
= 170216 #17-1489 
MAPH30 = 170342 #17-1489 
= 170346 #17-1489 
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~ NM OPM ™N 
' ' it ' 
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a 
w 
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oO wm wc Oo 
wn mW wo a 
w OO AKAWOAAAO w 
_ SO DWODWDOODODD oO 
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™N N Serre ™N 
f i speepeeves ' 
wr TST RAR RR NM 
~~ el el el el eel ok eh = 
”~ 
w 
GAA OA OA AAA AA AA A AAA AA AA AA AAAAAAAAAOA AA AAAAAXAAAAXAAAAAAAO 
Z AA 0 00 00 00 00 00 00 00 00 = 00 00 00 00 0D GD 0D 0D 0D GO 0D 0D 0D GD 0D 0D GD GD 0D 0D 0D 00 00 00 0D 0D 00 0D 00 00 00 00 00 09 60 00 0D 00 OO ~F 
wrasse rrr rrr rrr rr rr rr rrr rr rr rr rr rr rrr rrr rr 
ES SSO EE 
ase OF of ot ot ot ot ot ft 8 8 08 8 8 8 8 8 8 8 8 8 8 8 Ft 8 8 8 8 ee te 8 tt tt tS 
BWMARRER RRR RRA MRR RRR RRR RRR RRR RRR RRL ARR RRR RRR RRR 
DD EE CCC KK NN 
SCRRRRRZBBRRBZBE BHBBHRBHBHABRBsAT_B HSB BTBBBBVB BBS RHSBBBVVBBVVBBVeznwwes 
uJ 
w 
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*& WVUOwowowwowwvoo owo wre owowrowrowroO owowrowTrwsowr SRA owowo-wso 
KWwISSOSSSSSSS SISSISSISSASSASSISA soos oo ssE SSS soos soe 
— ng ne a ey ne pS Bg an ee ae tag ng ng Sy hoe te af ae A 
e>n nunnunnnnnun nunnnnHnHnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnu 
WMTW Or SsuM 2 CORK NMTNOM OK wWMasnwor 
oe Z e3% 
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CREATED BY MACRO ON 11-JAN-82 AT 11:32 PAGE 9 
SEQUENCE 147 
CROSS REFERENCE CREF vO01 
VALUE ereneuces 
006000 50-2551 #52-2605 *56-2813 *56-2857 
= 177744 #17-1489 
= 000007 #16-1472 54-2683 
003374 #37-2122 *37-2136 = *54-2742 = 93-4099 
open #21-1496 52-259 *64-3168  +%64-3186 
001256 #21-1496 52-2598  +*64-3157 
= 177572 #17-1489 17-1489 37-2131 %*37-2135 
*63-3128 68-3285  *68-5290 *77-36354 
"93-4099 +*95-4103 
= 177574 #17-1489 17-148 30S 13¢ 
= 177576 #17-1489 17-1489 37-213 
= 172516 #17-1489 17-148 34-2011 54-2738 
*69-3412 70-3473 *77-3635 = * 79-3746 
*87-3988  +*87-3989 +*95-4103 106-4211 
020014 70-3477 ~3393 #90-4071 
003372 #37-2121 54-2732 
= 000250 #17-1489 =*54-2732 = *54-2733 
006754 #53-2627 “<f 
006161 #52-261 54-2705 
= 0 44-235 44-2356 #72-3510 
003552 38-2153 38-2156 38-2161  #38-2165 
21 9-1796 #53-2623 
13646 -3190 66-3225 66-3235 #67-3253 
001316 #21-1496 *87-3995 88-4019 
1362 #21-1496 47-2444 *+*87-3976 
001342 #21-1496 +*35-2034 -2062 “30-S0ee 
001344 #21-1496  +*35-2035 35-2061 “35. 090 
001346 #21-1496 *32-1980 -1993 335-1994 
1230 #21-1496 1928 31-1952 
001226 #21-1496 +*30-1929 30-1930 *31-1951 
001252 #21-1496 40-2201 +*56-2860  *92-4097 
007142 453-2634 
365 2199 56-2822 61-3053 
102 #52-2608 56-2816 60-3041 
001254 #21-1496 40-2199 +%56-2858  +*92-4097 
1334 421-1496 
0013350 #21-1496 35-2038  +*35-2042 35-2045 
* 38-2164 38-2171 44-2541 44-2351 
«87-3987 88-4045 *88-4049 +*90-4081 
= 177772 #17-1489 
= 000240 #17-1489 
001336 #21-1496 
002526 29-18 #29-1900 
0025 29-1896 29-1901 
002476 29-1896 #29-1898 
002442 29-1896 #29-1897 
002432 9-1786 #29-1896 
001350 #21-1496 = * 337-2131 106-4207 
001352 #21-1496 = 37-213 106-4207 
001354 #21-1496 37-213 106-4207 
001332 #21-1496 
5166 447-2443 55-2753 56-2808 57-2876 


#643187 


*50-2487 
79-3745 


57-2884 
*79=-3749 


6 
4088 


59-2952 


*54=2737 
*79~3751 


*58-2937 
*80-3780 


36-2110 
*37-2130 


106-4212 


106-4212 


*36-2091 
*60-3016 


106-4205 


60-3011 


*57=2877 
«83-5849 


*63-3127 
*81-3807 


*37-2129 
37-2137 


36-2097 
60-3020 
106-4206 


62-3088 


*58-2936 
«87-3973 


*68-3281 
*81-3827 


37-2138 


*36-2106 
*68-3307 
106-4214 


68-3280 


*62-3090 
*88-4020 


*68-3283 
*83-3850 


36-2108 


68-3316 
106-4229 


69-3411 


| CKKUAE 
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CROSS REFERENCE 
VALUE 


# 


"ow 
~OoO-—- 
Ses 25 S 
ye.) a? a? >) 3 
== N=Oo0n 


001360 


REFEREN 


#17-1489 


ES 
PonSere 1-549 72-3506 
7-1489 


17-1489 


44-2366 
#102-4121 
4-2656 


*44-2378 


#43-2309 
*50-2533 


31-1947 
55-2753 
71-3489 
80-3778 


SEQUENCE 148 
CREF v01 


74-3567 
83-3846 


78-3689 
88-4015 


Bi-3873 85-3900 87-3972 es 9 


#54=2642 
#45~2394 


54-2656 
#101-4115 


#101-4115 
#101-4115 
54-2667 


#102-4120 *102-4120 *102-4120 *102-4120 *102-4120 *102-4120 


#101-4118 


103-4124 
*54-2667 


*50-2533 

“oI ape a 59.208 
72-830 73-5308 70-9567 
81-3796 82-38 83-3846 


68-3280 
77-3633 
87-3972 


60-3011 
75-3584 
84-3873 


62-3087 
76-3598 
85-3900 


69-3411 
-3689 
88-4015 


a ee ea 


PAGE 11 
149 
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CREATED BY MACRO ON 11 


| CKKUAE 


#54-2702 
68-3349 
85-3917 
93-4099 


*54-2697 


54-2666 
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3823 
4097 
412 
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EQUENCE 150 
SYMBOL CROSS REFERENCE CREF v01 


SYMBOL VALUE REFERENCES 
Sw = 010000 #17-1489 
ie SI 
w = - 
SwW15 = 100000 #17-1489 
Si = 000004 #17-1489 
Sid = 000010 #17-1489 
Sw4 = 000020 #17-1489 
SW5 = 000040 #17-1489 
SwW6 = 000100 #17-1489 
Sw7 = 000200 #17-1489 29-1800 
SwW8 = 000400 #17-1489 
Sw9 = 001000 #17-1489 93-4099 
SYSTID = 177764 #17-1489 
BIT = 000020 #32-1977 32-1978 32-1981 33-1994 
TBITO 3 = 104413 #101-4116 
TBI TOF 002726 #32-1978 101-4116 
TBITR = 104414 58-2920 73-3525 95-4103 #101-4117 
TBITRE 002754 #33-1993 101-4117 
TBITVE = 000014 #17-1489 a3 Shor 38-628 
004416 #44~-2329 72-3514 76-3600 
TIMEOU § 0030 #35-2027 55-2754 
TIMOUT = 000020 #16-1460 35-2053 59-2962 59-2967 59-2977 59-2990 60-3017 60-3032 60-3044 
62-3098 63-3137 64-3179 65-3209 68-3512 90-4082 90-4088 
TKVEC = 000060 #17-1489 
TOFLAG 003032 #35-2028 35-2046 35-2058 *35-2060 54-2741 +*93-4099 
TOMSG 006261 #53-2621 66-3236 
TPVEC = 000064 #17-1489 
TRAPVE = #17-1489 54-2655 54-2656 
TRIVEC = 000014 #17-1489 
TSTLOC 003474 #38-2149 63-3138 3 89 65-3210 81-3817 81-3820 
TST1 010676 54-2669 reek TA # ay 
TST10 14616 68-3280 68-3399  #69-5411 
TST11 015072 69-3411 69-3428 69-3460 #70-3472 
TST12 015140 70-3472 89471-3489 
TST13 015174 71-3489 #72-3503 
TST14 015334 #74-3567 
TST15 015362 74-3567 #75-3584 
TST16 015420 75-3584 #76-359 
TST17 015450 76-3598 #77-363 
TST2 011122 33-60 53-9778 #56- 08 
ST20 Ot zel9 77-3633 77-3645 77-364 r-393¢ #78-3689 
TST21 015744 73-35 77-3641 78- #79-3724 
TST2 016220 79-3724 a + a 1 
TST2 016266 80-3778 80-3783  #81-3796 
TST24 016474 81-3 ar. Ae 33 
TST25 016540 82-385 = #85-3846 
TST26 016702 -3846 #84-38 
ste! 017036 84-3873 #85-3 
TST 011444 a 56-2851 $-4833 #57-2876 
TST30 017164 78-3711 -3900 #87-5972 
TST31 017412 87-3972 87-4001  #88-4015 
TST = 021576 #87-4008 88-4015 
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SEQUENCE 151 
SYMBOL CROSS REFERENCE CREF v01 
SYMBOL VALUE REFERENCES 
TST4 01176 7= £6 #59-2952 
TST5 01224 §9-2952  #60-3011 
TST6 012630 60-3011 61-3071 #62-3087 
TST? 013712 #68-3280 
TYPDAT = 002244 #29-1832 66-3231 
TYPDS = 104405 9-1846 29-1886 66-3239 87-4006 95-4103 95-4103 #101-4115 
TYPE = 104401 9-1796 29-1813 29-1817 29-181 e9- 1824 9-182 ~1855 29-1888 30-1934 
1-1957 42673 42693 46-2699 4-2 05 6~¢ 1 5-2766 55-2769 55-2772 
66-3226 66-3232 66-323 66- 36 66- 240 66- 245 87-4005 87-4007 93-4099 
93-4099 95-4103 95-4103 95-4103 97-4107 98-4109 99-4111 100-4113 100-4113 
100-4113 #101-4115 102-4120 
TYPOC = 104402 29-1782 29-1840 #101-4115 
TYPON = 1044 #101-4115 
TYPOS = 104403 29-1879  #101-4115 
TYPVAD 002542 29-1863  #30-1914 
002650 -1871 #31-1947 
UBMAVA 006125 #52-2617 7~4005 
UBMEND 006174 #52-2619 87-4007 
UBMH I 001264 #21-1496 64-3165 64-3166 = #65-3219 81-3815 88-4060 
UBML OW 0 94 wo 11358 64-3162 *65-31 *65-3200 1-3810 87-3998 88-4018 
UBM24L 001310 #21-1496  *42-2278 42- 279 «42 : 42-2292 %64-2342 44-2371 46-2436 «= #6 3-334 
#68-3308 68-3311 *70-3476 *72-351 
UBM246P 001314 #21-1496 *68-3 "68-3304 68-3311 
001312 #21-1496 9 #44-2344 0 4G 372 46-2434 63-3135 *68-3282 *70-3475 971-3491 = #72-3512 
UBRH! 001274 #21-1496 52-2598 64-31 #64-3164 *65- 220 #653221 7-3992 
UBRLOW 001272 #21-1496 52-2598 64-3161 65-3201 7-3 
UDPARO = 177660 #17-1489 
UDPAR1 = 177662 #17-1489 
UDPAR2 = 177664 #17-1489 
UDPARS = 1 #17-1489 
UDPAR4 = 177670 #17-1489 
UDPARS = 177672 #17-1489 
UDPAR6 = 177674 #17-1489 
UDPAR7 = 177676 #17-1489 
UDPDRO = 17762 #17-1489 
UDPDR1 = 177622 #17-1489 
UDPDR2 = 177624 #17-1489 
UDPDR3 = 177626 #17-1489 
UDPDR4 = 1 #17-1489 
UDPDRS = 177632 #17-1489 
UDPDR6 = 1 #17-1489 
UDPDR7 = 177636 #17-1489 
UIPARO = 177640 #17-1489 
UIPAR1 = 177642 #17-1489 
UIPAR2 = 177644 #17-1489 
UIPAR3S = 177646 #17-1489 
UIPAR4 = 177650 #17-1489 
UIPARS = 177 #17-1489 
UIPAR6 = 177 #17-1489 
UIPAR? = 177656 #17-1489 
UIPDRO = 1 #17-1489 
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#91-4095 


#66-3224 
#94-4101 

97-4107 
#94-4101 


93-4099 


«97-4107 


5 
38-2154 


PAGE 14 
SEQUENCE 152 
CREF v0O1 
93-4099 93-4099 
97-4107 *97-4107 
54-2644 
21-1496 oe a leoe 
21-1496 21-1496 
21-1496 #21-1496 
21-1496 #21-1496 
21-1496 
21-1496 #21-1496 
21-1496 #31~1496 
21-1496 #21-1496 
29-1819 9x1 548 
aed 7-41 
31-1954 #103-4124 
#91-4095 


66-323 
97-410 


21-1496 
21-1496 


21-1496 
21-1496 


1-1496 
1-1496 


#21-1496 
#21-1496 


#21-1496 
#21-1496 


#21-1496 
#21-1496 


66-3240 
100-4113 


21-1496 
21-1496 


21-1496 
21-1496 


21-1496 
21-1496 


66-3245 
100-4113 


21-1496 
21-1496 


21-1496 
21-1496 
21-1496 
21-1496 


93-4099 


—_—- — - A 
~ —_-_—_———-- ee eae eee 
= ee 


| K 12 
CKKUAE CREATED BY MACRO ON 11-JAN-82 AT 11:32 PAGE 15 
ipene: en 


SYMBOL CROSS REFERENCE v01 
SYMBOL VALUE REFERENCES 
$DDWe 020232 #91-4095 
$DDW5 020234 #91~-4095 
SODW4 020236 #91-409 
020240 #91-4095 
020242 #91~-4095 
SDDW7 020244 #91~-4095 
020246 #91-4095 
020250 #91-4095 
SDEVCT 020152 #91~-4095 
SDEVM 020220 #91~4095 
SDOAGN 022034 95-4103 95-4103 95-4103 #95-4103 
SDTBL 023176 99-4111 #99-411 
SENDAD 022024 19-1494 93-4099  #95-4103 
SENDCT 021644 54-2657 #95-4103 
SENULL 022100 #95-4103 
SENV 020162 48-2459 49-2474 55-2761 #91-4095 93-4099 94-4101 94-4101 97-4107 
SENVM 020163 o5-fs8> 49-2476 54-2700 54-2729 77-3642 78-3692  #91-4095 94-4101 97-4107 
SEOP 021576 87-3976 87-3985 87-4008 88-4057 #95-4103 
SEOPCT 021636 *54-2657 #95-4103 95-4103 
SERFLG 001101 the wy 4 *92-4097 92-4097 92-4097 +*92-4097 92-4097 92-4097 +*93-4099 
SERMAX 001113 #21-1496 *54-2659 92-4097 *92-4097 92-4097 92-4097 
SERROR 020704 54-2655 #93-4099 
SERRPC 001114 #21-1496 29-1781 29-1900 *93-4099  +*935-4099 93-4099 93-4099 93-4099 106-4208 
106-4211 106-4214 Hs sas 354 ine-2836 106-4217 106-4218 106-4219 106-4220 106-4221 
106-4222 106-4225 106- 106-422 106-4226 106-4227 106-4228 106-4229 106-4250 
SERRTB 001366 #22-1496 29-1809 
SERTTL 001110 #21-1496 *55-2791 56-2844 pio 34 A pt ag *68-3400  +%*69-3461 *88-4048 «935-4099 
93-4099 93-4099 95-4103 95-4103 95-41 
SESCAP 001214 #21-1496 %54-2658 +*92-4097 93-4099 93-4099 93-4099 935-4099 
SE TABL 020162 #91-4095 
SE TEND 020266 89-4067 #91-4095 
SFATAL 020144 #91-4095 +*94-4101 
SFFLG 021574 *94-4101 94-4101 94-4101 94-4101 #94-4101 
SFILLC 001154 #21-1496 97-4107 97-4107 97-4107 
SFILLS 001153 #21-1496 97-4107 97-4107 
$GD 001116 #21-1496 
SGDDAT 001122 #21-1496 
$GET42 021776 #95-410 
$GT = treeet 101-4115 
= 16-148 16-1485 16-1485 
SHIBTS 020000 #89-4067 
SHIOCT 005736 *51-2590 #31-2595 
SICNT 001102 #21-1496 *92-4097 92-4097 92-4097 92-4097 92-4097 
SILLUP 023766 102-4120 102-4120 #102-4120 
SINTAG 001133 #21-1496 
SITEMB 001112 #21-1496 29-1779 93-4099 93-4099 93-4099 93-4099 93-4099 93-4099 93-4099 
$LF 001224 #21-1496 93-4099 93-4099 97-4107 97-4107 100-4113 100-4113 100-4115 
SLFLG 021573 *94-4101 #94-4101 


$LOOP 3 3 
SLPADR 001104 #21-1496 = #47=2449 = 54-2669 = 92-4097 = 92-4097 92-4097 92-4097 92-4097 





CKKUAE CREATED BY MACRO ON 11-JAN-82 AT 11:32 PAGE 16 
SEQUENCE 154 
SYMBOL Bo ops REFERENCE CREF v01 
SYMBOL VALUE ates CES 
SLPERR ¥001106 #21-1496 see-S609 *44-2340 pote EF 
*56-284 *56-2854  +*61-3054 +*63-31 
#92-4097 92-4097 92-4097 93-4099 
SMADR1 020174 #91-409 
SMADR2 oes oe #91-4095 
$SMADR3 020204 #91~-4095 
SMADR4 020210 #91-4095 
SMAIL 020142 89-406 89-4067 #91-4095 92-4097 
SMAMS 1 020172 #91-4095 
SMAMS2 020176 #91-4095 
SMAMS3 020202 #91-4095 
SMAMS4 020206 #91-4095 
SMBADR 20002 #89~-4067 
SMFLG 021572 *94-4101 94-4101 *94-4101 #94-4101 
SMNEW 023507 #100-4113 
SMSGAD 020156 #91-4095 +*94-4101 94-4101 
SMSGLG 020160 #91-409 «94-4101 
SMSGTY 020142 “a2 3481 *36-2085 +*37-2124 *54-2712 
*94— 
23476 #100-4113 
SMTYP1 020173 #91-409 
SMTYP2 020177 #91-4095 
SMTYP3 020203 #91-409 
SMTYP4 020207 #91-4095 
SMXCNT 2067 92-409 92-4097 92-4097 #92-4097 
SNULL 001152 #21-1496 97-4107 97-4107 97-4107 
SNWTST = #54-2753 54-2753 #55-2753 55-2753 
56-287 #57-2876 Lak 5 tA #58-295 
#60-3011 60-3011 #61-3087 61-308 
68-32 #68-3411 79 fm rt 
#70-3489 70-3489 #71-3489 71-3489 
73-3567 #74-3567 74-3567 &#74- Ae 
#76-3598 76-3598 #76-3633 ee 3 
78-3689 #78-3724 78- oe # 4 
#80-3796 3796 «= #B1- 1- 
82-3846 #83-3846 83- 338 #83- 
a 85-3900 #86-397 86-3972 
SOCNT 0227 «98-41 *98-4109  #98-4109 
SOCTVL 024142 103-4124 #103-4124 
022770 *98-4109 *98-4109 rs wed «98-4109 
SOVER 92-4097 92-409 92-4097 
S$PASS 020150 #54-2647 54-2677 66-3024 § ~7900 
*95-4103 95-4103 -4103 5-410 
SPASTM 2 9-4067 
023750 #102-4120 
SPWRDN 23610 54-2656 #102-4120 102-4120 
023744 #102-4120 
23662 102-4120 alee 
SQUES 001222 #21-1496 93-4 93-4099 97-4107 
SRDCHR 023216 #100-4113 101-4115 101-4115 


SRDDEC = *#ee08 101-4115 


eee 


i a —— 


a + 


L 12 


#2076928 
*64-3170 


93-4099 


*55=2763 


"38-2980 


a 


~3972 


*98-4109 
#92-4097 
#91-4095 


97-4107 


*55-2779 
*65=3202 


97-4107 


#91-4095 


87-3972 


#98-4109 
92-4097 


100-4113 


«55-2788 
*81-3808 


94-4101 


#87-4015 


92-4097 


100-4113 


2 2 
cow 


NO 
Ovo 
co— 
-—Oo 


-§ 


#96-4101 


87-4015 


92-4097 


100-4113 


ent ns et ee 


*56-2836 
92-4097 


94-4101 


#95-4105 


CKKUAE 
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SEQUENCE 155 
SYMBOL CROSS REFERENCE CREF v01 
SYMBOL VA REFERENCES 
SRDLIN 023346 #100-411 101-4115 = 107-4115 
$RDOCT 005630 #51-2565 101-4115 101-4115 101-4118 
$SRDSZ == 10 #100-4113 100-4113 
$REGAD 001156 #21-1496 
$SREGO 001160 #21-1496 *93-4099 106-4226 
SREG1 001162 #21-1496 *93-4099 19972519 
SREG2 001164 #21-1496  +*93-4099 106-421 106-4223 106-4228 
SREGS 001166 #21-1496  *93-4099 190-2555 106-4228 
SREG4 001170 #21-1496  *93-4099 106-4 $5 
SREG 001172 #21-1496  +*93-4099 106-4250 
SRESRE 022142 #96-4105 101-4115 
T 022074 #95-4103 
SRTRN 022070 54-265 *54-2660  *54-2665 95-4103 #954103 
2A = tketee 101-4115 
SSAVRE 0221 #96-410 101-4115 =101-4115 
SSAVR6 023772 *102-4120 102-4120 *102-4120 *102-4120 #1024120 
COPE 202 54-2655 #92-4097 
SSETUP = #18-1491 18-1491 #18-1491 18-1491 #18-1491 18-1491 #18-1491 18-1491 #18-1491 
oes ah rit 5 oe ¢ 48 93-4099 93-4099 93-4099 93-4099 95-4103 95-4103 
SSSWR 000176 #28-1733 54-269 54-2702 54-2703 54-2707 54-2709 
SSTUP) == 177777 #18-1491 #18-1491 18-1491 #18-1491 #18-1491 18-1491 #18-1491 39418-1491 18-1491 
#18-1491 #18-1491 18-1491 #18-1491 #18-1491 18-1491 
SSVLAD 020626 ~4097 #92-4097 
$svPC = 000204 #19-1494 9-1494 
SSWR = 177400 #16-1470 16-1485 16-1486 16-1486 16-14 16-1486 16-1486 16-1486 16-1486 
16-1486 21-1496 21-1496 1-1496 55-27 36-4008 57-2876 9-2952 60-3011 
62-3087 68-3280 rag 3h 0-347 71-3489 72-3503 74-3567 75-3584 76-3598 
77-3633 - 79-3724 80-377 8i- 82-3833 83-3846 84-3873 85-3900 
87-3972 88-4015 92-4097 92-409 92-409 92-4097 92-4097 92-4097 92-4097 
92-409 92-4097 92-4097 92-4097 92-4097 92-4097 ry Lh 92-4097 92-4097 
92-4097 92-4097 92-4097 92-4097 95-4 93-4099 93-4099 93-4099 93-4099 
3-4 ~4099 93-4099 93-4099 93-4099 93-4099 95-4103 95-4103 95-4103 
95-4103 95-4103 102-4120 
SSWREG 020164 54-2731 77-3644 78-3694 ug fe 
SSWRMK = #16-1469 16-1486 16-14 a 16-14 16-1486 16-1486 16-1486 16-1486 
16-1486 92-4097 92-409 92-409 92-40 92-4097 92-4097 92-4097 92-4097 
92-4097 ety: 92-4097 
S$TBIT 022076 *54-2668  +*95-4103 95-4103 95-4103 7193 pth a 
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106-4217 106-4218 106-4219 106-4220 106- 106-4222 106-4225 106-4224 106-422 
106-4226 106-4227 106-4 $8 106-4 106-4 
STIMES 001212 #21-1496 47-2450 a 92-40 *92=4 92-4097 92-4097 95-4103 
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$TKS 001142 itty 54-2644 97-4107 97-4107 97-4107 97-4107 100-4113 100-4115 100-4115 
STMPO 001174 #21-1496 38-2149 7 173 "26-452 *56-2825 *57- eet «57-2886 57-2887 57-2904 
*61-3048 +*63-3132 157 ~31 ~ 186 65-3201 63-3 7 “$e 86 68-3552 
68-3370 *68-3376 * 923784 «79-37 * “ac. 53 83-5854 83-3856  *83-5860 
83-3861 *84-3879 84-3880 hes 1 84- -388 *84-5887 Phat 5 *85-3906 85-3907 
5-3909 +*85-3913 85-3914 106-4217 106-4218 106-4222 106-4223 106-4250 
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SEQUENCE 157 
SYMBOL CROSS REFERENCE CREF vO 
Sy VAL REFERENCES 
SUNIT 154 1-4 
SUNITM 020010 #89-4067 
SuSuR == 920166 #91-4095 
SveCT! 0202 #91-4095 
$vcCTe 020214 #91-4095 
SXOFF = 3 97-4107 97-4107 
SxON = 000021 97-4107 97-4107 97-4107 100-4113 
SXTSTR 020372 #92-4097 
$$GET4 = 000001 #95-4103 495-4103 95-4103 
ILL 022767 *98-4109 *98-4109 98-4109» #98-4109 
$40CAT = teneee 92-4097 93-40 
SASTA = teens 94-4101 94-4101 
. $X = 020000 #89-4067 89-4067 
$Y = 002026 #28-1731 28-1734 
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| CKKUAE CREATED BY MACRO ON 11-JAN~82 AT 11: he, - nce 158. 
‘MACRO CROSS REFERENCE CRE v01 
MACRO NAME REFERENCES 
COMME N #17-1489 
DONE #16-1346 95-4103 
ENDCOM #17-1489 
ESCAPE #17-1489 
GETPRI #17-1489  #95-4103 
GETSWR #17-1489 
MSG #80-3787 #81-3796 #81-3828 482-3833 482-3840 83-3846 483-3867 484-3873 484-3894  #85-3900 
#87-4 #88-4015 
MSG1 #54~2744 55-2753 
MSG11 #67-3262 68-3280 
MSG1 -3405 #69-3411 
MSG1 #69~-3464 0-3472 
MSG14 #70-3479 71-348 
MSG15 #71-3495 #72-3503 
MSG16 #73-3556 #74-3567 
MSG17 #74-3571 5-3584 
MSG2 #55-2 #56-2808 
G20 #75-3590 -3598 
MSG21 #76-3603 #77-3633 
MSG22 #77-3656 -3689 
MSG220 #78-3712 79-3724 
MSG221 #79~-3772 80-377 
MSG23 #86-396 #87-3972 
MSG4 #56-2 #57-2876 
MSG5 #58-2942 #59-2952 
MSG6 59= #60-3011 
MSG7 #61-3074 #62-3087 
MULT #17-1489 
NEWTST #16-1462 8 #17-1489 #54-2753 #339008 456-2876 a75-$338 #59-3011 #61-3087 467-3280 #68-3411 
34 #70-3489 #71-35035 #73- #74-3584 #75-35 #76-36335 #77-3689 #78-3724 #79-3778 
3 #81-3833 #82-3846 #83-3873 -3900 > Hone Hf. 
#17-1489 #94-4101 #94-4101 196-41 05 111 #1024130 #102-4120 
SH #17-1489 94-4101 94-4101 94-4101 96-4105 102-4120 102-4120 
REPORT #17-1489 
SAVTST #16-1 #93-4099 
TPRI #17-1489 
SETTRA #101-4115 101-6115 101-4115 101-4115 101-4115 101-4115 101-4115 101-4115 101-4115 101-4115 
— ghia 101-4116 101-4117 101-4118 
SKIP #17-1489 #55-2790 - org 383? 461-3071 #68-3399 #69-3428 #69-3460 #77-3645 #77-3648 
#77-3654 #80-3783 #81-3806 #82-3836 #87-4001 
SKIPJ #16-1337 78-3711 
SLASH #17-1489 
SPACE #16-13435 #17-1489 
SSCOPE #16-1362 #92-4097 
STARS #17-1489 19-1494 21-1496 $371598 9-173 9-1776 30-1382 30-1913 31-1941 31-1946 
32-196 32-1964 32-1966 2-196 2-196 2-1976 ; -1984 33-1992 34-1998 34-2007 
35-2019 35-2026 78-698) 36-2067 36- 44 6-2081 7-2113 37-2120 38-2141 38-2148 
39-2177 39-2184 40-2191 40- 13 41- 9? 41-2219 42-2255 42-2265 44-2321 44-2528 
46~241 46-2424 47-2442 rs 45 48-2454 49-2470 50-2485 50-2546 51-2557 55-2753 
55-275 56-2808 26-5008 57~2876 57-2876 59- 335 59-295 60-3011 60-3011 62-3087 
62-5087 63-3107 63-311 64-5152 64-5156 65-319 65-519 66-3522 67-3247 67-3252 
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MACRO NAME 
SEOP 
SERRO 
. SPOWE 
. SREAD 
. SSAVE 
. $SSCOP 
STRAP 
STYPD 
STYPE 
$TYPO 
1170 
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